'' 


I 


'A 

\ I 


■'  7 a ' 

) T 1 

■ '.'1 
I 


RESEARCH  NOTE 
RN  79-6 


A SAINT  MODEL  OF  THE  AN/TSQ-73 
MISSILE  MINDER:  USER'S  GUIDE 


— -^^ubUc 
Apptoved  tw  P 


Di.‘'<xxbuUott 


Pritsker  & Associates^  Inc. 


Consultants  in  Systems  Engineering 


lii>. 


UNCLASSIFIED 

8CCUW1TY  CLASSIFI%»TtON  JF  THIS  PAGE  (Whan  P3t«.Entws<g 

I REPORT  DOCUMENTATION  PAGE 


TTf^PORT  NUMBER 


|2.  30VT  ACCESSION  NO. 


RN  79-6 


TlTLg  f— ' ' 

/ A SAINT  Model  for  the  AN/TSQ-73  Missile  Minder)^,/ 
User's  Guide# 

David  B./wortman  / f 

Alonzo  F.  iHixson,  III ^ ^ 


READ  INSTRUCTIONS 

BEFORE  COMPLETING  FORM 

3.  RECIPIENT'S  CATALOG  NUMBER 


5.  TYPE  OF  REPORT  ft  PERIOD  COVERED 

Final  Report 

12/77  - 8/78 

ft.  PERFORMING  ORG.  REPORT  NUMBER 
a.  CONTRACT  OR  GRANT  NUMBERfa; 


DAHC19-77-M^3^ 


9.  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

Pritsker  & Associates,  Incy  >,  .»/  / 
West  Lafayette,  Indiana  47906 


10.  PROGRAM  ELEMENT.  PROJECT,  TASK 
V AREA  ft  WORK  UNIT  NUMBERS 


*2Q762722A765  J 


II.  CONTROLLING  OFFICE  NAME  AND  ADDRESS  /l\^ 

US  Army  Research  Institute  [ 1 1 J 

5001  Eisenhower  Avenue 

Alexandria,  VA  22333 

U.  MONITORING  AGENCY  NAME  ft  ADDRESSfi/  dHtarmt  from  Controlling  Otflea) 

t^i  KUjI  h-&pf.  D-at  n-A>J^  I 

L-f  ll  1 

IS.  DISTRIBUTION  STATEMENT  (ol  (Ala  Report)  '■ 

Approved  for  open  release;  distribution  unlimited. 

mJdlTrv 


IS.  SECURITY  CLASS,  (ol  ttilo  nport} 


Unclassified 

ISa.  DECL ASSI FIC ATION/ DOWNGRADING 
SCHEDULE 


17.  DISTRIBUTION  STATEMENT  (ol  Iho  obotroet  ontorod  In  Block  30,  It  dittoront  from  Roport) 


IB.  SUPPLEMENTARY  NOTES 


Research  monitored  technically  by  C.C.  Jorgensen,  ARI  Field  Unit  at  Ft  Bliss, 
Texas. 


19.  KEY  WORDS  (Continuo  on  rovtroo  oldo  II  nocotsory  ond  Idonllly  by  block  numbarj 


SAINT 

model 

air  defense  systems 


man-machine  systems 
network  modeling 
simulation 


20.  ABSTRACT  (Continu*  on  rovorso  0ldo  li  necooosry  mnd  idontify  ty  btoek  mtmbor) 

>.SAINT,  Systems  Analysis  of  Integrated  Networks  of  Tasks,  is  a network  modeling 
and  simulation  technique  developed  to  assist  in  the  design  and  analysis  of 
complex,  man-machine  systems.  SAINT  provides  the  concepts  necessary  to  model 
systems  that  consist  of  tasks  (discrete  elements),  state  variables  (continuous 
elements),  and  interactions  between  them.  It  facilitates  the  assessment  of  the 
contribution  that  system  components  make  to  overall  system  performance.. 

'\  .ol 


DD  ,^“^73  1473  EDITION  OF  I NOV  65  IS  OBSOLETE 


LASSLFICATION  OF  THIS  PACE  fini*n  Data  Entararf) 


>.f  ' 


research  note 

RN  79-6 


A SAINT  MODEL  OF  THE  AN/TSQ-73 
MISSILE  MINDER;  USER'S  GUIDE 


David  B.  Wortman 
Alonzo  F.  Hixson,  III 


Pritsker  & Associates,  Inc. 
P.O.  Box  2413 

West  Lafayette,  Indiana  47906 


U.S.  Army  Research  Institute 
for  the  Behavioral  and  Social  Sciences 
ARI  Field  Unit-Ft.  Bliss 
P.O.  Box  6057 
Ft.  Bliss,  Texas  79916 


August  1978 


< I 

'I 

I >i^. 


OVERVIEW 


1.  Introduction 

2.  Description  of  SAINT  Tasks 

3.  Documentation  of  User  Written  Subprograms 

4.  Data  Input  Prodedures 

5.  Sample  Simulation  Outputs 

The  introduction  describes  the  model  purpose  and  background.  A more 

detailed  treatment  of  the  issues  and  potential  areas  of  application  can 
be  found  in  "A  SAINT  Model  of  the  AN/TSQ-73  Guided  Missile  ARI  Defense 
System,"  D.  Wortman,  A.  Hixon,  and  C.  Jorgensen.  ARI  Research  Memorandum 
(in  press)  1979. 

Section  two  consists  of  a detailed  description  of  the  88  tasks  which 
represent  the  full  range  of  system  interactions  required  by  a 25L  system 
operator/repairman.  The  tasks  can  be  broken  down  into  six  groups: 

1.  General  operating  procedures  such  as  assigning  a track 

2.  Automatic  processing,  e.g.,  system  updating 

3.  Flight  path  processing  such  as  track  initiation 

4.  System  clock  functions 

5.  Fire  unit  procedures  such  as  hold  fire 

6.  Hooking  procedures,  e.g.,  moving  a tab 

Each  of  these  groups  is  reproduceti  in  a network  drawing  which  presents 
source  tasks,  sink  tasks,  and  information  flows.  The  representation  of 
each  task  is  also  given  on  page  125  in  SAINT  code.  Support  documentation 
describing  the  SAINT  language  can  be  found  in  the  reference  section.  The 
networks  which  follow  this  introduction  should  be  consulted  as  the  model 
is  studied. 


Section  three  deals  with  user  subprograms.  In  order  to  perform 
specialized  data  collection  and  generation,  a series  of  FORTRAN  routines 
were  written.  These  Include  verbal  descriptions  of  subprograms,  functions, 
subroutines,  user  functions,  and  moderator  functions.  Each  function  Is 
numbered  and  Its  purpose  and  variable  requirements  are  presented.  For 
example,  on  page  111,  moderator  function  8 1s  discussed.  It  Is  used  to 
obtain  operator  trace  printouts  at  the  beginning  of  a task.  If  a programmer 
desired  to  understand  where  In  the  model  It  was  used,  he  could  proceed  to 
a description  of  the  tasks  with  moderator  function  8 such  as  task  11  on 
page  12  (Press  interrogate).  He  could  then  explore  the  next  referenced 
task  or,  by  examining  the  task  network,  follow  each  sequence  of  operator 
events  through  the  model. 

Section  four  describes  the  data  Input  procedures.  Input  is  broken 
Into  two  parts,  (1)  the  model  code  and  (2)  the  mission  requirements  against 
which  the  model  Is  to  be  evaluated.  It  Is  possible  to  quickly  vary  the 
operator  modes,  the  type  of  hooking  procedure,  the  number  of  fire  units, 
the  number  of  missiles,  the  kill  probabilities,  location  of  batteries, 
flight  paths,  speeds,  and  track  status  data. 

Section  five,  the  model  output.  Includes  three  sets  of  Information: 

1.  A SAINT  model  echo  check 

2.  A mission  Input  echo  check 

3.  A mission  output  (trace)  and ^statistical  summary 

A complete  output  for  a sample  run  Is  presented  which  Includes  all 
Input  parameters,  data  cards,  task  descriptions,  echo  checks,  and  outputs. 
Included  In  the  listings  are  task  by  task  events  and  times,  means  and  standard 
deviations  and  frequency  and  cumulative  histograms  on  selected  task  variables. 
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To  use  this  manual  in  the  most  effective  manner,  it  is  recommended 
that  the  programmer  first  study  the  SAINT  support  documentation.  After 
familiarity  with  SAINT  has  been  achieved,  the  next  step  should  be  to 
examine  the  network  drawing  of  the  model  and  the  sample  input  and  output 
(page  125).  When  an  overview  is  firmly  in  mind,  details  on  individual 
tasks  can  be  obtained  by  reading  each  task  description,  the  associated  user 
functions,  moderator  functions,  and  resource  descriptions. 

This  manual  has  bean  designed  to  permit  a potential  user  to  trace  any 
task  sequence  of  interest  at  any  depth  desired.  To  illustrate  the  procedure, 
an  example  will  be  given.  Suppose  the  network  drawing  was  examined  for 
hooking  procedures.  The  first  network  SAINT  symbol  shows  a label  of  "type 
hook"  task  number  35.  From  the  network  drawing  it  is  seen  that  the  task 
uses  two  moderator  functions  number  8 and  10.  Nine  tasks  lead  into  task  35. 
They  are  10,  15,  18,  22,  26,  28,  29,  31,  and  33.  Three  tasks  follow  task  35. 
They  are  numbers  36,  39,  and  42.  Suppose  we  wanted  to  know  details  about 
task  35.  On  page  25  of  the  manual  a detailed  verbal  description  is  given 
in  which  system  attribute  1 is  mentioned.  If  we  want  to  learn  more  about 
it  we  can  turn  to  table  III,  where  we  find  attribute  1 deals  with  operator 
branching  status.  In  a similar  manner,  moderator  function  10  (page  112) 
can  be  used  to  collect  user  statistics  by  calling  subroutine  UTMST.  Since 
UTMST  is  not  found  in  the  user  written  subroutines,  it  must  be  a SAINT 
language  routine.  Details  about  UTMST  could  then  be  found  in  the  documenta- 
tion for  the  SAINT  Simulation  Program. 

By  using  the  cross  referencing  procedures  described  above,  it  is 
possible  to  study  the  AN/TSQ/73  model  and  rapidly  identify  the  exact  task 
or  parameters  within  a task  that  might  require  modification.  In  terms  of 
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Its  machine  requirements,  the  model  currently  runs  on  an  IBM  360-65 
FORTRAN  G compiler  in  about  330K  non-overlayed.  Considerable  reductions 
in  core  usage  are  possible  if  overlaying  is  performed.  Reference  (6)  is 
recommended  for  this  task. 
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SUMMARY 


With  the  development  of  increasingly  complex  weapons 
systems,  the  Army  community  has  become  sensitive  to  the  need 
for  accurate  assessment  of  the  human  performance  components 
of  such  systems.  Because  the  human  operator's  are  integrally 

tied  to  a dynamically  changing  weapons  ^vironment,  it  is 

/ 

/ 

becoming  increasingly  difficult  to  a§eess  overall  system 

/ 

/ 

performance  without  considering  th^  human  element.  As  a 

result,  a computer  simulation  model  of  the  AN/TSQ-73  Guided 

/ 

Missile  Air  Defense  System  p^Terator/repairman  was  developed 

/ 

to  demonstrate  the  capabi-Iity  to  estimate  human  and  other 

/ 

system  performance  measures  using  digital  simulation.  SAINT, 
a combined  discrete/continuous  network  simulation  language, 

was  used  as  the  Vehicle  for  developing  the  model. 

/ 

The  SAINT'  model  represents  an  efficient  and  effective 

approach  tp^  modeling  and  analyzing  the  performance  of  the 

/ 

AN/TSQ-T^  Guided  Missile  Air  Defense  System  operator/repairman. 
An  expanded  model  can  be  used  as  a vehicle  for  evaluating  the 
performance  of  the  entire  system,  including  all  human  elements. 
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SECTION  I 
INTRODUCTION 


AN/TSQ-73  System 

Guided  Missile  Air  Defense  System  AN/TSQ-73  is  a light- 
weight mobile  automatic  data  processing  command  and  coordi- 
nation system  for  Nike-Hercules  and  Hawk  Army  Air  Defense 
units  [ 1, 2 , 3] . The  AN/TSQ-73  integrates  radar  and  identification 
friend  or  foe  (IFF)  data  from  local  and  remote  radars  for 
console  display.  Through  programming  of  the  automatic  data 
processing  equipment,  alphanumerics , track  and  site  symbols, 
map  symbols,  coordinates,  and  lines  are  generated.  This 
data  is  integrated  with  radar  and  IFF  data  to  provide  the 
operator  with  a display  of  aircraft  and  missile  targets 
identified  by  track  symbols  and  alphanumerics,  as  well  as 
site  and  map  symbols  identified  by  alphanumerics.  Target 
data,  fire  unit  profile  data,  and  defended  point  character- 
istics are  processed  and  analyzed  automatically  for  primary 
and  secondary  fire  unit  selection  and  type  of  weapon  assign- 
ment. 


Tactical  operation  of  the  system  is  accomplished  by  one 
tactical  directions  officer  and  two  operator^'repairm^n.  They 
may  operate  the  system  in  a number  of  manual  or  automatic 
modes.  Some  of  the  possible  modes  are: 

1.  Air  Track  Identification 

a.  Automatic  and  sector  scan 

b . Manual 
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2.  Tracking  jj 

. I 

a.  Automatically  initiated  automatic  tracking 

b.  Manually  initiated  automatic  tracking  || 

3.  Fire  Unit  Selection  and  Weapon  Assignment  :■ 

i ; 

a.  Automatic,  by  computer-generated  commands  j 

b.  Semi-automatic,  by  operator  acceptance  of  computer 

recommendations  ! , 

i 

c . Manual , by  operator  i 

i i 

SAINT  Simulation  Language  ' | 

SAINT,  Systems  Analysis  of  Integrated  Networks  of  Tasks, 
is  a network  modeling  and  simulation  technique  developed  to  I j 

assist  in  the  design  and  analysis  of  complex,  man-machine  systems.  I 

' 1 

SAINT  provides  the  concepts  necessary  to  model  systems  that  || 

consist  of  tasks  (discrete  elements) , state  variables  (continuous  j 

elements),  and  interactions  between  them  [4,5,6].  It  facilitates  the 
assessment  of  the  contribution  that  system  components  make  to 
overall  system  performance. 

SAINT  has  been  designed,  developed,  and  used  for  modeling 
and  analyzing  systems  in  which  resources  (men  and  machines) 
perform  tasks  subject  to  physical  and  environmental  constraints. 

It  satisfies  the  need  for  a graphical  approach  to  the  modeling 
and  analysis  of  systems  which  contain  procedural,  risk  and  random 
elements.  For  engineers  and  human  factors  specialists,  SAINT 
provides  modeling  capabilities  similar  to  those  provided  by 
circuit  diagrams  for  electrical  engineers,  signal  flow  graphs 
and  block  diagrams  for  systems  analysts,  and  PERT/CPM  networks 
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for  project  managers.  Further,  it  provides  automatic  model  ' 

analysis  capabilities  via  the  SAINT  simulation  program. 

The  SAINT  philosophy  is  to  separate  the  modeling  process 
from  the  analysis  process.  A graphical  approach  to  modeling 
is  taken  in  which  the  system  to  be  analyzed  is  represented  by 
a network  model.  The  network  model  facilitates  communication 
regarding  the  characteristics  of  the  system  and  also  serves 
as  the  basis  for  subsequent  system  analysis. 

A SAINT  network  model  is  developed  using  symbols  contained 
in  the  SAINT  symbol  set.  The  fundamental  elements  of  SAINT 
networks  are  tasks,  resources  (personnel  and/or  equipment) 
required  to  perform  tasks,  relationships  among  tasks,  and  system 
status  variables  referred  to  as  state  variables.  System  perform- 
ance is  related  to  which  tasks  are  performed,  the  manner  in  which 
they  are  initiated,  utilization  of  the  system  resources,  and  the 
extent  to  which  certain  states  of  the  system  are  achieved  or 
maintained. 

AN/TSQ-73  Model 

The  AN/TSQ-73  mode]  is  designed  to  simulate  the  activities 
of  an  operator/repairman  involved  in  monitoring  and  operating 
the  display  console  during  a simulated  mission.  Missions  can  ^ 

be  simulated  in  any  of  the  operating  modes  identified  in  the 

•7 

first  section.  In  addition,  if  the  system  becomes  overloaded 

and  the  automatic  procedures  are  delayed,  the  model  has  the  ; ■ 

I 

capability  of  simulating  the  operator  manually  updating  data  ^ 

\ 

even  though  the  system  is  operating  in  an  automatic  mode.  < 
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The  model  of  the  AN/TSQ-73  system  is  divided  into  four 
submodels.  The  first  submodel  represents  the  operator/repairman's 
response  to  a given  visual  stimulus  that  is  presented  on  the 
display  console  and  the  physical  actions  that  result.  Those 
procedures  used  by  the  operator  to  "hook"  a track  or  site 
(i.e.,  focus  the  attention  of  the  system  on  one  particular  item 
on  the  display)  were  given  special  attention.  The  second  sub- 
model controls  the  location  and  identification  status  of  all 
aircraft  involved  in  a mission.  This  submodel  utilizes  the 
continuous  simulation  capabilities  of  SAINT  to  maintain  a 
current  position  on  all  aircraft.  The  third  submodel  represents 
the  activities  performed  by  the  fire  units  once  they  have  been 
assigned  a target.  The  fourth  submodel  initiates  the  automatic 
engagement,  reengagement,  and  cease  fire  commands  that  are 
generated  by  the  system  computer  or  the  fire  units  themselves. 

The  four  submodels  interact  with  each  other  on  a continuing 
basis  throughout  the  simulation.  As  a result,  tasks  are 
scheduled,  interrupted,  and  rescheduled  as  a function  of  system 
status . 

Input  data  for  the  model  is  divided  into  two  categories. 

The  SAINT  model  input  cards  are  used  to  define  the  structure  and 
parameters  of  the  model  described  above.  The  second  category 
of  input  data  is  used  to  configure  the  model  for  a particular 
mission  scenario.  This  data  incorporates  the  selection  of 
automatic  or  manual  operating  modes,  the  number  of  aircraft  and 
fire  units  to  be  simulated,  and  the  movement  and  status  of  the 
aircraft  over  time.  All  model  inputs  are  designed  to  allow  the 


user  to  evaluate  a wide  range  of  operating  procedures  and  mission 
scenarios  in  a relatively  simple  and  straightforward  manner. 

The  first  output  provided  by  the  simulation  model  is  a 
complete  echo  check  of  all  input  data.  This  is  followed  by  a 
detailed  account  of  the  operator's  task-by-task  performance 
and  corresponding  system  status  over  simulated  time.  Finally, 
summary  performance  measures  related  to  the  operator,  fire  units, 
and  the  overall  system  are  provided. 

The  model  can  be  used  to  establish  both  operation  and 
training  procedures  in  a timely  and  cost-effective  manner.  In 
addition,  the  techniques  and  methods  employed  in  this  model 
can  serve  as  the  basis  for  the  development  of  models  of  other 
operator-controlled  systems  with  a minimal  amount  of  time  and 
effort. 


SECTION  II 


DESCRIPTION  OF  TASKS  OF  THE  SAINT  MODEL 


This  section  presents  a detailed  discussion  of  the  acti- 
vities and  operating  conditions  represented  by  the  SAINT 
model  of  the  AN/TSQ-73  system.  Each  task  will  be  fully  de- 
fined. The  discussion  of  the  task  characteristics  are  pre- 
sented in  the  following  order  (as  needed) : 

1.  Represented  activity  or  purpose  of  the  task. 

2.  Conditions  causing  release  of  the  task  and  its 
resource  assignment. 

3.  Task  performance  time. 

4.  Moderator  functions  called. 


■ I ' 


5.  Attribute  values  set. 

6.  Conditional  branching  decisions. 

7.  Task  statistics  collected. 

8.  User  functions  called. 

9.  Possible  branching  directions. 

In  additions.  Tables  I,  II,  and  III  appearing  at  the  end 
of  this  section  provide  model  references  for  and  definitions 
of  the  distribution  sets,  values  assoicated  with  visual  sym- 
bols, and  definitions  of  SAINT  attributes  used  in  these 
task  descriptions.  Further  descriptions  of  the  user-written 
subprograms  referenced  in  this  discussion^  are  presented  in 
Section  III.  / 
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Task  1:  Searching  (Search) 

This  task  represents  the  operator  visually  scanning  the 
radar  screen  to  determine  on  which  track  or  site  he  will  focus 
his  attention  next.  This  task  is  released  at  time  zero. 

It  may  also  be  released  upon  the  completion  of  other  operator 
tasks . 

Moderator  function  1 is  called  by  this  task  to  determine 
what  the  next  symbol  to  be  processed  will  be.  The  function 
first  assigns  values  to  all  the  sites  and  tracks  on  the  scope 
by  calling  subroutine  SETV.  These  values  reflect  the  level  of 
visual  stimulation  that  they  present,  and  their  relative 
importance  on  the  scope.  Using  these  values,  the  function 
randomly  selects  the  next  site  or  track  to  be  processed.  If 
none  are  selected,  the  operator  will  be  idle  for  the  next  period 
of  time.  The  task  performance  time  for  task  1 is  also  computed 
in  this  function.  It  is  randomly  based  on  the  number  of 
symbols  that  appear  on  the  scope.  The  more  objects  on  the 
scope,  the  shorter  the  task  performance  time  will  generally  be. 
In  addition,  the  function  sets  the  value  of  system  attribute  1 

I 

1 

to  the  type  of  symbol  or  site  that  the  operator  will  process  and, 
through  a call  to  subroutine  SETTR,  initializes  the  value  of 
. information  attribute  1 to  the  track  number  if  the  object  is 

^ a track  or  information  attribute  2 to  the  fire  unit  number  if 


1.1 
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the  object  is  a fire  unit. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator.  Moderator  function  10  is  called  to  collect 


statistics . 


Branching  from  task  1 is  based  on  system  attribute  1 and 

is  dependent  on  the  type  of  object  that  will  be  processed. 

The  possible  branches  from  task  1 are: 

system  attribute  1=0-  idle  time  - task  2 
system  attribute  1=1-  video  data  - task  3 
system  attribute  1=2-  unknown  track  - task  9 
system  attribute  1=3-  friendly  track  - task  21 
’ system  attribute  1 > 4 - other  - task  24 


Task  2;  Idle  Time  (IDLETIME) 

This  task  represents  the  time  spent  by  the  operator  when 
no  attention  is  being  given  to  the  radar  system.  It  may  be 
released  upon  the  completion  of  task  1.  The  task  performance 
time  is  determined  by  user  function  40. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator. 

The  task  statistic,  BET,  STA  is  collected. 

Upon  completion  of  this  task,  the  operator  returns  to  task  1. 


Task  3:  Observing  Video  (OBSVDEO) 


This  task  represents  the  observance  and  recognition  of 
video  data.  It  may  be  released  upon  the  completion  of  task  1 
or  task  4 and  requires  resource  1.  The  parameters  for  the 
task  performance  time  are  stored  in  distribution  set  4. 

Moderator  function  8 is  called  to  trace  the  actions 
of  the  operator.  Moderator  function  10  is  called  to  collect 
statistics. 

The  branching  probabilities  are  set  in  system  attributes 
1,  2,  and  3 by  user  function  2.  The  branching  conditions  for 
this  task  are  based  on  the  track  initialization  mode  and  the 
number  of  symbols  on  the  display. 
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The  task  statistic  BET,  STA  is  collected. 

The  probabilistic  branching  may  direct  the  operator  to 
task  1,  4 or  5. 

Task  4;  Wait  1 Sweep  (V7AIT0NE) 

This  task  represents  the  operator  observing  the  radar 
screen  for  a period  of  time  to  determine  if  the  video  is 
indeed  a valid  track.  It  may  be  released  upon  the  completion 
of  task  3 and  requires  resource  1.  The  parameters  for  the 
task  performance  time  are  stored  in  distribution  set  5. 

Moderator  function  9 is  called  to  trace  the  actions  of 
the  operator.  Upon  completion  of  this  task,  the  operator 
returns  to  task  3. 


i 
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Task  5;  Auto/Manual  Initiation  (AUTOMAN) 

This  task  represents  the  decision  made  by  the  operator 
to  manually  initiate  the  track.  It  may  be  released  upon  the 
completion  of  task  3 and  requires  resource  1.  The  task 
performance  time  is  0. 

The  probabilities  for  branching  are  stored  in  system 
attributes  1,  2,  and  3 by  user  function  2.  The  branching 
conditions  for  this  task  are  based  on  the  track  initialization 
mode  and  the  total  number  of  tracks  currently  in  this  system. 

Probabilistic  branching  directs  the  operator  to  task  1, 


6,  or  7. 
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Task  6;  Watching  Video  (WATCHVID) 

This  task  represents  the  operator  watching  the  radar  j' 

scope  to  determine  if  the  video  data  is  in  fact  a track. 

I 

It  may  be  released  upon  the  completion  of  task  5 and  requires 
resource  1.  Task  performance  time  is  determined  by  user 

,1 

function  3.  This  time  is  characterized  by  the  sweep  time  of  ; 

i ' 

the  specific  radar  system  used.  ! 

Moderator  function  9 is  called  to  trace  the  actions  of 
the  operator.  ' 

The  operator  checks  to  see  if  the  video  has  in  fact  | ' 

I 

! 

disappeared.  If  it  has,  user  function  41  sets  system 

attribute  1 to  a value  greater  than  1.  If  the  symbol  is  still  I- 

i I' 

video  data,  the  function  sets  system  attribute  1 to  the  value  1.  j 

These  values  are  then  used  in  the  conditional  branching. 

The  conditional  branching  directs  the  operator  to  task  1 
if  system  attribute  1 is  greater  than  1 and  to  task  7 if 
system  attribute  1 is  equal  to  1. 

Task  7;  Position  Tab  (POSTAB) 

This  task  represents  the  operator  positioning  the  tab  on 
the  data  to  be  hooked.  It  may  be  released  upon  the  completion 
of  task  5 or  6 and  requires  resource  1.  The  parameters  for 
the  task  performance  time  are  stored  in  distribution  set  6. 

Moderator  function  8 is  called  to  trace  the  actions 
of  the  operator. 

Upon  completion  of  this  task,  the  operator  is  directed 
to  task  8. 


11 


l j 


Task  8;  Press  Initiate  (PINIT) 


This  task  represents  the  operator  pressing  the  TASK 


FUNCTION  - INITIATE  button.  It  is  released  upon  the  completion 


of  task  7 and  requires  resource  1.  The  parameters  for  the 


task  performance  time  are  stored  in  distribution  set  7 . 


Moderator  function  8 is  called  to  trace  the  actions  of 


the  operator.  Moderator  function  9 is  called  for  operator 


statistics. 


User  function  4 is  called  to  record  the  status  of  the 


track. 


Upon  completion  of  this  task,  the  operator  is  directed 


to  task  1. 


Task  9 : Observing  Unknown  Track  (OBSUNK) 


This  task  represents  the  operator's  observance  and  recog- 


nition of  an  unknown  track.  It  may  be  released  upon  the 


completion  of  task  1 and  requires  resource  1.  The  parameters 


for  the  task  performance  time  are  stored  in  distribution  set  4 


Moderator  function  8 is  called  to  trace  the  actions 


of  the  operator.  Moderator  function  10  is  called  to  collect 


statistics , 


The  probabilities  for  branching  are  stored  in  system 


attributes  1 and  2 by  user  function  5.  These  probabilities 


depend  on  the  auto /manual  interrogation  mode  of  the  system 


and  the  range  that  the  target  is  from  the  center  of  the  system. 


The  distance  factor  which  is  incorporated  into  the  probabilities 


is  stored  in  user-defined  task  characteristics, 


A 
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The  task  statistic  BET,  STA  is  collected. 

Upon  completion  of  this  task,  probabilistic  branching 
directs  the  operator  to  task  1 or  10. 

Task  10 t Press  IDENT  IFF  (PIDIFF) 

This  task  represents  the  operator  pressir  ^ ::he  TASK 
SELECTION  - IDENT  IFF  button.  It  may  be  released  upon  the 
completion  of  task  9 and  requires  resource  1.  The  parameters  for 
the  task  performance  time  are  stored  in  distribution  set  7 . 

Moderator  function  8 is  called  to  trace  the  actions 
of  the  operator. 

System  attribute  4 is  set  to  the  value  1,  the  return 
address  when  the  operator  has  completed  the  hooking  procedures 
which  follow.  System  attribute  5 is  set  to  the  value  0,  indi- 
cating to  the  hooking  procedure  that  a track  is  being  hooked. 

Upon  completion  of  this  task,  the  operator  is  directed 
to  task  35. 

Task  11;  Press  Interrogate  (PINTERRO) 

This  task  represents  the  operator  pressing  the  TASK 
FUNCTIONS  - INTERROGATE  button.  It  may  be  released  upon  the 
completion  of  task  45  when  the  hooking  procedures  were  initiated 
from  task  10  and  requires  resource  1.  The  paraimeters  for 
the  task  performance  time  are  stored  in  distribution  set  7. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator. 

Upon  completion  of  the  task,  the  operator  is  directed  to 


task  12. 


This  task  represents  the  operator  reading  the  results  of 
the  interrogation  which  appear  in  the  hooked  track  data  field. 

It  is  released  upon  the  comp'  ;tion  of  task  11  and  requires 
resource  1.  The  parameters  for  the  task  performance  time 
are  stored  in  distribution  set  8. 

Moderator  function  8 is  called  to  trace  che  actions  of 
the  operator. 

The  probabilities  for  branching  are  stored  in  system 
attributes  1,  2,  and  3 by  user  function  6.  These  probabilities 
are  based  on  the  number  of  tracks  in  the  system  and  the  distance 
this  track  is  from  the  center  of  the  system.  The  distance 
factor,  which  is  incorporated  into  the  probabilities,  is  stored 
in  user-defined  task  characteristics. 

Upon  completion  of  this  task,  probabilistic  branching 
directs  the  operator  to  task  1,  13,  or  14. 

Task  13;  Press  Friend/Hostile  (PFH) 

This  task  represents  the  operator  pressing  the  TASK 
FUNCTION  - FRIEND/HOST  button.  It  may  be  released  upon  completion 
of  task  12  and  requires  resource  1.  The  parameters  for  the 
task  performance  time  are  stored  in  distribution  set  7. 

Moderator  function  8 is  called  to  trace  the  actions  of  I 

the  operator.  Moderator  function  9 is  called  to  collect 
operator  statistics.  ; 

Upon  completion  of  this  task,  the  operator  is  directed  ^ 

to  task  1.  ^ 


F 
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Task  14:  Tight/Free  Status  (TIGHFREE) 

This  task  represents  the  evaluation  of  the  current  operating 
policy  as  tight  or  free.  It  may  be  released  upon  the  completion 
of  task  12  and  requires  resource  1.  The  task  performance 
time  is  0. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator.  Moderator  function  9 is  called  to  collect  operator 
statistics . 

The  probabilities  for  branching  are  stored  in  system  attri- 
bute 1 and  2 by  user  function  7.  These  probabilities  are  based 
on  the  number  of  tracks  currently  in  the  system  and  whether  the 
system  is  in  the  automatic  engagement  mode. 

User  function  7 also  assigns  to  system  attribute  7 the 
value  of  0 if  the  system  is  free  or  the  value  1 if  the  system 
is  tight.  These  values  will  be  used  later  for  branching  purposes. 

Upon  completion  of  this  task,  probabilistic  branching 
directs  the  operator  to  task  1 or  task  15. 


! 
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Task  15;  Press  Assign  (PASSION) 

This  task  represents  the  operator  pressing  the  TASK 
SELECTION  - ASSIGN  button.  It  may  be  released  upon  the 
completion  of  task  14  or  task  25  and  requires  resource  1. 

The  parameters  for  the  task  performance  time  are  stored  in 
distribution  set  7. 

Moderator  function  8 is  called  to  trace  the  actions  of  the 
operator-  Moderator  function  10  is  called  to  collect  operator 
statistics. 


System  attribute  4 is  set  to  the  value  2,  the  return 
address  when  the  operator  has  completed  the  hooking  procedures 
which  follow.  System  attribute  5 is  set  to  the  value  0,  indi- 
cating to  the  hooking  procedure  that  a track  is  being  hooked. 

Branching  from  this  task  is  conditional  and  based  on  the 
value  stored  in  system  attribute  7 which  was  set  at  task  14 
or  task  25.  If  the  value  of  system  attribute  7 is  less  than 
-.5,  the  branch  is  to  task  35  for  hooking  purposes.  If  the 
value  of  system  attribute  7 is  less  than  5.,  the  branch  is 
to  task  18,  indicating  that  the  track  was  hooked  following 
task  10. 

Task  18;  Branching  Task  (BRANCH) 

The  purpose  of  this  task  is  to  determine  the  method  by 
which  an  assignment  will  be  made.  The  possible  methods  are 
manual  assignment  of  the  track,  semi-automatic  assignment,  or 
no  assignment.  The  choice  not  to  use  the  automatic  assignment 
was  made  at  task  12  or  task  25.  This  task  may  be  released 
upon  the  completion  of  task  15  or  45  and  requires  resource  1. 
The  task  performance  time  is  0. 

The  probabilities  for  branching  are  stored  in  system 
attributes  1,  2,  and  3 by  user  function  10.  These  reflect 
operating  procedures.  Infoirmation  attribute  2 is  set  by 
user  function  42.  This  represents  the  fire  unit  number  that 
is  being  assigned  to  the  track.  A value  of  0 would  indicate 
that  no  fire  unit  was  assigned  to  the  track.  In  addition, 
system  attribute  4 is  set  to  the  value  3,  the  return  address 
from  the  hooking  procedure.  System  attribute  5 is  set  to  the 
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value  1 indicating  to  the  hooking  procedure  that  a fire  unit 
is  being  hooked. 

Upon  completion  of  this  task,  probabilistic  branching 
directs  the  operator  to  task  35,  19  or  1. 

Task  19:  Press  Engage/Accept  (PENGACC) 

This  task  represents  the  operator  pressing  the 
TASK  FUNCTION  - ACCEPT  RECMD  ASSIGN  button  or  pressing  the 
TASK  FUNCTION  - ENGAGE  button.  It  may  be  released  by  task  18 
or  by  task  45  if  hooking  procedures  were  used.  This  task 
requires  resource  1. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator. 

Information  attribute  3 is  set  to  2 which  will  be  used  by 
the  fire  unit  section  to  identify  the  information  as  an 
engagement  message. 

Upon  completion  of  this  task,  a conditional  branching 
accomplishes  two  actions.  First,  if  the  value  of  system 
attribute  7 is  less  than  .5,  a branch  is  made  to  task  1 
indicating  that  the  operator  returns  to  search  the  scope. 

If  the  value  of  system  attribute  7 is  greater  than  .5,  a 
branch  to  task  20  is  made  indicating  that  the  operator  must 
press  the  hold  fire  button.  Second,  if  the  value  of 
information  attribute  2 is  greater  than  0,  a branch  to 
task  46  is  made.  This  information  is  a message  to  the  fire 
units  that  a track  assignment  is  being  made. 


Task  20;  Press  Hold  Fire  (PIIODF) 


This  task  represents  the  operator  pressing  the  SYSTEM 
MODE  - HOLD  FIRE  button.  It  may  be  released  upon  the 
completion  of  task  19  and  requires  resource  1.  The  parameters 
for  the  task  performance  time  are  stored  in  distribution  set  7. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator. 

Information  attribute  3 is  set  to  the  value  3 to  indicate 
to  the  fire  unit  section  that  the  information  is  a hold  fire 
message. 

Upon  completion,  the  operator  is  directed  to  task  1 and 
a message  is  sent  to  the  fire  unit  section  that  will  contain 
the  hold  fire  status. 

Task  21;  Observing  Friendly  Track  (OBSFREND) 

This  task  represents  the  operator's  observance  and 
recognition  of  a friendly  track.  It  may  be  released  upon 
the  completion  of  task  1 and  requires  resource  1.  The 
parameters  for  the  task  performance  time  are  stored  in 
distribution  set  4. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator.  Moderator  function  10  is  called  to  collect 
operator  statistics. 

The  probabilities  for  branching  are  stored  in  system 
attribute  1 and  2 by  user  function  11.  The  possibility  that 
this  track  was  formerly  classified  as  a hostile  track  is  the 
key  factor  in  determining  these  probabilities. 


The  task  statistic  BET,  STA  is  collected. 

Upon  completion  of  this  task,  probabilistic  branching 
directs  the  operator  to  task  1 or  22. 

Task  22;  Check  for  Fire  Unit  (CKFU) 

This  task  represents  the  operator  checking  the  display 
for  a possible  ongoing  engagement.  It  may  be  released  upon  the 
completion  of  task  21  and  requires  resource  1.  The  parameters 
for  the  task  performance  time  are  stored  in  distribution  set  4 . 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator. 

The  probabilities  for  branching  are  stored  in  system 
attribute  1 and  2 by  user  function  12.  The  fact  that  a fire 
unit  has  been  assigned  to  the  track  is  the  factor  in  determining 
these  probabilities.  In  addition,  system  attribute  4 is  set 
to  the  value  7,  the  return  address  from  the  hooking  procedures, 

^ and  system  attribute  5 is  set  to  0,  indicating  to  the  hooking 

I procedure  that  a track  is  being  hooked. 

j Upon  com.pletion  of  this  task,  probabilistic  branching 

directs  the  operator  to  task  1 or  35. 

^ Task  23;  Press  Cease  Fire  (PCFIRE) 

I This  task  represents  the  operator  pressing  the  SYSTEM 

( i MODE  - CEASE  FIRE  button.  It  may  be  released  upon  the  completion 

LI 

of  task  45  and  requires  resource  1.  The  parameters  for  the 
I task  performance  time  are  stored  in  distribution  set  7. 

j Moderator  function  8 is  called  to  trace  the  actions  of 

the  operator. 
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Information  attribute  3 is  set  to  the  value  4 indicating 
to  the  fire  unit  section  that  the  information  is  a cease  fire 
message. 

Upon  completion  of  this  task,  the  operator  is  directed 
to  task  1 and  a message  is  sent  to  task  46. 

Task  24;  Search  Branch  B (SEARCHB) 

The  purpose  of  this  task  is  to  continue  the  branching 
originating  from  task  1.  It  may  be  released  upon  the  completion 
of  task  1.  The  task  performance  time  is  0. 

The  possible  branchings  are: 

system  attribute  1=4-  task  25 
system  attribute  1=5-  task  28 

Task  25:  Observe  Hostile  Track  (OBSHOST) 

This  task  represents  the  operator's  observance  and 
recognition  of  a hostile  track.  It  may  be  released  upon  the 
completion  of  task  24  and  requires  resource  1.  The  parameters 
for  the  task  performance  time  are  stored  in  distribution 
set  9. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator.  Moderator  function  10  is  called  to  collect 
statistics. 

The  probabilities  for  branching  are  stored  in  system 
attributes  1,  2,  and  3 by  user  function  13.  The  distance  the 
track  is  from  the  center  of  the  system  and  the  fact  that  the 
system  is  in  the  automatic  engagement  mode  are  used  to  determine 
these  probabilities.  The  data  used  in  determining  the  effect 
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of  the  range  factor  is  stored  in  the  user-defined  task  character- 
istics. In  addition,  system  attribute  7 is  set  to  the  value  -1. 
This  is  used  by  task  15  and  task  19  to  determine  the  branching 
of  the  operator  at  that  time. 

The  task  statistic  BET,  STA  is  collected. 

Upon  completion  of  this  task,  probabilistic  branching 
directs  the  operator  to  task  1,  15  or  26. 

Task  26;  Press  Assign  (PASSIGK) 

This  task  represents  the  operator  pressing  the  TASK 
SELECTION  - ASSIGN  button.  It  may  be  released  upon  the 
completion  of  task  25  or  27  and  requires  resource  1.  The 
parameters  for  the  task  performance  time  are  stored  in 
distribution  set  7. 

Moderator  function  8 is  called  to  trace  the  actions 
of  the  operator. 

System  attribute  4 is  set  to  the  value  5,  the  return 
address  from  the  hooking  procedures.  System  attribute  5 is 
set  to  the  value  0,  indicating  to  the  hooking  procedure  that 
a track  is  being  hooked. 

Upon  completion  of  this  task,  the  operator  is  directed 
to  task  35. 

Task  27;  Clear  Hold  Fire  (CLEARHF) 

This  task  represents  the  operator  pressing  the  TASK 
FUNCTION  - CLEAR  HOLD  FIRE  button.  It  may  be  released  upon  the 
completion  of  task  45  and  requires  resource  1.  The  parameters 
for  the  task  performance  time  are  stored  in  distribution  set  7 . 


Moderator  function  8 is  called  to  trace  the  actions  of 


the  operator. 

User  function  14  is  called  to  record  the  associated 
fire  unit  niomber.  The  task  also  assigns  to  information 
attribute  3 the  value  5,  which  indicates  to  the  fire  unit 
section  that  the  information  is  a clear  hold  fire  message. 

Upon  completion  of  this  task,  the  operator  is  directed 
to  task  1 or  26  and  a message  is  sent  to  task  46. 


Task  28:  Observing  Fire  Unit  (OBFU) 


This  task  represents  the  operator's  observance  and 
recognition  of  a fire  unit  symbol.  It  may  be  released  upon 
the  completion  of  task  24.  The  parameters  for  the  task 
performance  time  are  stored  in  distribution  set  4. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator.  Moderator  function  10  is  called  to  collect 
statistics. 

The  probabilities  for  branching  are  stored  in  system 
attributes  1,  2,  and  3 by  user  function  15.  This  function 
checks  the  fire  unit  symbol  for  a blinking  condition.  The 
task  also  assigns  to  system  attribute  4 the  value  6 , the 
return  address  from  the  hooking  procedures  and  assigns  to 
system  attribute  5 the  value  1,  indicating  that  the  hooking 
procedures  will  hook  a fire  unit. 

The  task  statistic  BET,  STA  is  collected. 

Upon  completion  of  this  task,  probabilistic  branching 


directs  the  operator  to  task  1,  35  or  33. 
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Task  29;  Read  Fire  Unit  AN  Block  (READOOAC) 

This  task  represents  the  operator  reading  information 
from  the  fire  unit  AN  block.  It  may  be  released  upon  the 
completion  of  task  45.  The  parameters  for  the  task  performance 
time  are  stored  in  distribution  set  9. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator. 

User  function  16  is  called  to  set  the  value  of  system 
attribute  1.  This  value  is  then  used  for  the  conditional 
branching.  The  assignment  is  based  on  whether  the  fire  unit 
has  tracks  currently  attached.  A value  of  4 is  assigned 
to  information  attribute  3;  this  will  be  used  by  the  fire  unit 
section  to  indicate  that  this  track  should  be  dropped.  System 
attribute  5 is  set  to  the  value  0,  indicating  to  the  hooking 
procedures  that  a track  is  being  hooked.  System  attribute  4 
is  set  to  the  value  4,  the  return  address  when  the  operator  has 
completed  the  hooking  procedures. 

Upon  completion  of  this  task,  conditional  branching 
directs  the  operator  to  task  30  if  system  attribute  is  equal 
to  0.  This  indicates  that  no  tracks  were  assigned  to  the  fire 
unit.  The  operator  is  directed  to  task  35  if  the  value  of 
system  attribute  1 is  equal  to  1.  This  indicates  that  there 
was  only  a primary  track  assigned  to  the  fire  unit.  The 
operator  is  directed  to  task  31  if  the  value  of  system 
attribute  1 is  equal  to  2.  This  indicates  that  there  was  both 
a primary  and  secondary  assignment  made  to  this  fire  unit. 
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Task  30;  Drop  A Site  (DROPSITE) 

This  task  represents  the  operator  pressing  the  TASK 
FUNCTION  - DROP  button.  It  may  be  released  upon  the  completion 
of  task  29.  The  parameters  for  the  task  performance  time  are 
stored  in  distribution  set  7. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator. 

The  task  calls  user  function  17  to  update  the  status  of 
the  tracks. 

Upon  completion  of  the  task,  the  operator  is  directed 
to  task  1. 

Task  31;  Clear  Secondary  Assignment  (C2ASSIGN) 

This  task  represents  the  operator  recognizing  a secondary 
assignment  and  initiating  action  to  clear  the  secondary  assignment. 
It  may  be  released  upon  the  completion  of  task  29. 

Moderator  function  8 is  called  to  trace  the  actions  of 

1 

the  operator. 

System  attribute  3 is  set  to  the  value  4,  indicating  to  the 

♦ 

fire  unit  section  to  update  their  status, 
j Upon  completion  of  this  task,  the  operator  is  directed 

to  task  35  and  a message  is  sent  to  task  46. 

Task  32;  Clear  Primary  Assignment  (ClASSIGN) 

This  task  represents  the  operator  recognizing  and  initiating 
I steps  to  clear  a primary  assignment.  It  may  be  released  upon 

the  completion  of  task  45.  The  parameters  for  the  task  perform- 
ance  time  is  stored  in  distribution  set  7. 
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Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator. 

User  function  19  is  called  to  update  the  status  arrays. 
Information  attribute  3 is  set  to  the  value  4 , indicating  to 
the  fire  unit  section  to  update  their  arrays  and  check  for  a 
secondary  assignment. 

Upon  completion  of  this  task,  the  operator  is  directed 
to  task  30  and  a message  is  sent  to  task  46. 

Task  33;  Observing  PPG  (OBSDDG) 

This  task  represents  the  operator  observing  and  evaluating 
the  data  contained  on  the  DDG.  It  may  be  released  upon  the 
completion  of  task  28  or  34.  The  parameters  for  the  task 
performance  time  are  stored  in  distribution  set  9. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator. 

The  probabilities  for  branching  are  stored  in  system 
attributes  1 and  2 by  user  function  8.  These  probabilities 
are  based  on  the  status  of  all  fire  units.  If  there  is  an 
effective  status  showing  for  a fire  unit,  the  probabilities 
will  exhibit  a tendency  toward  directing  the  operator  to  clear 
the  status.  System  attribute  4 is  set  to  the  value  8,  the  return 
address  from  the  hooking  procedures.  System  attribute  5 is 
set  to  the  value  1,  indicating  to  the  hooking  procedure  that  a 
fire  unit  is  being  hooked. 

Upon  completion  of  this  task,  the  operator  is  directed 


to  task  35  or  1. 
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Task  34:  Clear  Effective  Status  (PCLEFF) 


This  task  represents  the  operator  pressing  the  TASK 
FUNCTION  - CLEAR  EFFECT  button.  It  may  be  released  upon  the 
completion  of  task  45.  The  parameters  for  the  task  performance 
time  are  stored  in  distribution  set  7 . 

Moderator  function  8 is  called  to  trace  the  actions 
of  the  operator. 

User  function  9 is  called  to  initialize  the  fire  unit 
message.  A value  of  1 is  assigned  to  information  attribute  3 
to  indicate  that  this  message  is  a clear  effective  message. 

Upon  completion  of  this  task,  the  operator  is  directed 
to  task  33  and  a message  is  sent  to  task  46. 


Task  35:  Type  of  Hook  (TYPEHOOK) 


The  purpose  of  this  task  is  to  determine  what  type  of 
hooking  procedures  will  be  used.  It  may  be  released  upon  the 


completion  of  task  10,  22,  15,  18,  26,  28,  29,  31  or  33. 

The  task  performance  time  is  0. 

Moderator  function  8 is  called  to  trace  the  actions  of 
the  operator.  Moderator  function  10  is  called  to  collect 
operator  statistics. 

The  value  of  system  attribute  1 is  set  by  user  function  20. 
This  function  determines  if  a sequence  hook,  a tab  hook,  or 
a location/position  hook  will  be  used.  This  decision  is  based 
on  the  type  of  symbol  being  hooked  and  the  hooking  policy  specified 
at  input. 

A task  statistical  MARK  is  set. 

Upon  completion  of  this  task,  the  operator  is  directed 


to  task  36,  39  or  42. 


26 


! 


I 


i 


Task  36:  Type  of  Sequence  (TYPESEQ)  I 

This  task  represents  the  decision  whether  or  not  a new 
special  category  must  be  entered  through  the  keyboard.  It 
may  be  released  upon  the  completion  of  task  35  and  requires 
resource  2.  The  paramters  for  the  task  performance  time  are 
stored  in  distribution  set  7. 

The  value  of  system  attribute  1 is  assigned  by  user 
function  21.  This  function  determines  whether  the  category 
matches  the  type  of  symbol  being  hooked. 

Upon  completion  of  this  task,  the  operator  is  directed 
to  task  37  if  the  value  of  system  attribute  1 is  equal  to  0, 
indicating  that  a new  category  needs  to  be  entered  or  the 
operator  is  directed  to  task  38  if  the  value  of  system  attri- 
bute 1 equals  1,  indicating  that  the  category  does  not  need  to 
be  changed. 

Task  37:  Enter  Category  (ENTCATSQ) 

This  task  represents  the  operator  entering  a new  hooking 
category  on  the  keyboard.  It  may  be  released  upon  the  completion 
of  task  36  and  requires  resource  2.  The  parameters  for  the 
task  performance  time  are  stored  in  distribution  set  11. 

User  function  22  is  called  to  update  the  status  of  the 
category. 

Upon  completion  of  this  task,  the  operator  is  directed 


to  task  38. 
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Task  38;  Press  Sequence  Hook  (PSEQHOOK) 

This  task  represents  the  operator  pressing  the  TASK 
FUNCTION  - SEQ  HOOK  button.  It  may  be  released  upon  the 
completion  of  task  36,  37,  or  38  and  requires  resource  2. 

The  parameters  for  the  task  performance  time  are  stored  in 
distribution  set  7. 

A value  is  assigned  to  system  attribute  1 by  user 
function  23.  This  function  determines  if  the  item  that  was 
hooked  by  pressing  the  sequence  hook  button  is  the  desired  item. 

Upon  completion  of  this  task,  the  operator  may  be  directed 
to  task  38  if  the  value  of  system  attribute  1 equals  0,  indi- 
cating that  the  item  is  not  the  desired  item;  to  task  1 if  the 
value  of  system  attribute  1 is  equal  to  1,  indicating  that  there 
are  no  items  of  the  given  type;  or  the  operator  may  be  directed 
to  task  45  if  the  value  of  system  attribute  1 is  equal  to  2, 
indicating  that  the  desired  item  has  been  found. 
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Task  39;  Enter  Number/Position  (ENTNUM) 

This  task  represents  the  operator  entering  the  track  number, 
fire  unit  or  site  address  through  the  AN  keyboard,  or  the 
operator  entering  the  GEOREF  coordinates  of  the  symbols  through 
the  AN  keyboard.  It  may  be  released  upon  the  completion  of 
task  35  or  41  and  requires  resource  2.  The  parauneters  for  the 
task  performance  time  are  stored  in  distribution  set  11. 

Upon  completion  of  this  task,  the  operator  is  directed  to 
task  40. 
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Task  40;  Press  Number  Hook  (PNUMHOOK) 

This  task  represents  the  operator  pressing  the  TASK 
FUNCTION  - NUMBER  HOOK  button  or  the  operator  pressing  the 
TASK  FUNCTION  - POSN  ENTRY  button.  It  may  be  released  upon 
the  completion  of  task  39  and  requires  r^^ource  2.  The  parauneters 
for  the  task  performance  time  are  stored  in  distribution  set  7 . 

Upon  completion  of  this  task,  probabilistic  branching 
directs  the  operator  to  task  41,  indicating  that  an  error  has 
been  made  in  the  entry  or  to  task  45  to  return  to  the  completion 
of  his  tasks. 

Task  41;  Press  Dehook  (PDEHOOK) 

This  task  represents  the  operator  pressing  the  TASK 
FUNCTION  - DE  HOOK  button.  It  may  be  released  upon  the  completion 
of  task  40  and  requires  resource  2.  The  parameters  for  the  task 
performance  time  are  stored  in  distribution  set  7 . 

Upon  completion  of  this  task,  the  operator  is  directed  to  task  39. 

Task  42;  Removing  the  Tab  (MOVETAB) 

This  task  represents  the  positioning  of  the  tab  on  the 
symbol  to  be  hooked.  It  may  be  released  upon  the  completion 
of  task  35  or  44  and  requires  resource  2.  The  parameters  for 
the  task  performance  time  are  stored  in  distribution  set  6. 

Upon  completion  of  this  task,  the  operator  is  directed 


to  task  43. 


Task  43;  Position  Hook  (PSNHOOK) 


This  task  represents  the  operator  pressing  the  TASK 
FUNCTION  - POSN  HOOK  button.  It  may  be  released  upon  the 
completion  of  task  42  and  requires  resource  2.  The  parameters 
for  the  task  performance  time  are  stored  in  distribution  set  7. 

Upon  completion  of  this  task,  the  probabilistic  branching 
directs  the  operator  to  task  44,  indicating  that  an  error  has 
been  made  in  position  hook  or  to  task  45  directing  the  operator 
to  the  completion  of  his  tasks. 

Task  44;  Press  Dehook  (PDEHOOK) 

This  task  simulates  the  operator  pressing  the  TASK 
FUNCTION  - DE  HOOK  button.  It  may  be  released  upon  the 
completion  of  task  43  and  requires  resource  2.  The  parameters 
for  the  task  performance  time  are  stored  in  distribution  set  7. 

Upon  completion  of  this  task,  the  operator  is  directed  to  task  42. 

Task  45;  Return  from  Hook  (RETHOOK) 

This  task  directs  the  operator  to  the  sequence  of  events 
he  left  to  enter  the  hooking  procedures  section.  It  may  be 
released  upon  the  completion  of  task  38,  40  or  43.  The 
task  performance  time  is  0. 

Moderator  function  10  is  called  to  collect  statistics. 

Branching  from  this  task  is  based  on  system  attribute  4 

which  was  previously  set  before  branching  to  the  hooking 

procedures.  The  possible  branchings  are: 

system  attribute  4=1-  task  11 
' system  attribute  4 = 2-  task  18 
system  attribute  4=3-  task  19 
system  attribute  4=4-  task  32 
system  attribute  4 > 4 - task  70 
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Task.  46;  Fire  Unit  Router  (FUROUTER) 

The  purpose  of  this  task  is  to  send  the  fire  unit  message 
to  the  appropriate  task  for  execution.  It  may  be  released  upon 
the  completion  of  task  19,  20,  23,  27,  31,  32,  34,  63  or  64. 

The  task  performance  time  is  0. 

Moderator  function  11  is  called  to  collect  fire  unit 
statistics. 

Branching  from  this  task  is  based  on  information  attribute  3, 
which  was  set  in  the  operator  task  section.  The  possible  branches 
are: 

information  attribute  3 = 1-  clear  effective  status  - task  53 
information  attribute  3 = 2-  engage  track  - task  47 
information  attribute  3 = 3-  hold  fire  - task  54 
information  attribute  3 = 4-  cease  fire  - task  57 
information  attribute  3 > 4 - other  - task  59 


Task  47:  Attaching  Fire  Unit  (ATTACH) 

This  task  represents  the  fire  unit  receiving  an  engagement 
message  and  the  initial  steps  taken  by  the  fire  unit  to  attach 
the  track  to  their  fire  unit.  It  may  be  released  upon  the 
completion  of  task  46.  The  parameters  for  the  task  performance 
time  are  stored  in  distribution  set  12. 

Moderator  function  3 is  called  to  initialize  these 
activities . 

Branching  is  based  on  system  attribute  8 which  is  set  by 


user  function  24.  The  value  is  based  on  whether  or  not  a 


cease  fire  message  has  been  received. 

Upon  completion  of  this  task,  the  fire  unit  is  directed 
to  task  48  if  the  value  of  system  attribute  8 is  equal  to  1, 
indicating  that  the  engagement  should  continue  or  the  fire  unit 
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is  directed  to  task  83  if  the  value  of  system  attribute  8 is 
equal  to  0,  indicating  that  the  engagement  should  be  terminated. 


Task  48;  Engagement  Part  A (ENGAGEA) 

This  task  represents  the  initial  tracking  activities  of 
the  fire  unit  on  the  assigned  track.  It  may  be  released  upon 
the  completion  of  task  47.  The  parameters  for  the  task  perform- 
ance time  are  stored  in  distribution  set  13. 

The  conditional  branching  from  this  task  is  governed  by  j 

system  attribute  8 which  is  set  by  user  function  25.  This  j| 

function  checks  to  see  if  the  fire  unit  received  a cease  fire 
message,  if  the  track  is  a primary  or  secondary  assignment,  or 
if  the  track  is  within  the  firing  range. 

The  possible  branchings  upon  completion  of  the  task  are:  ^ 

system  attribute  8 > 0 - continue  engagement  - task  49  j I 

system  attribute  8 > -1  - out  of  range  - task  84  ' 

system  attribute  8 > -2  - secondary  track  - task  8 5 ' ' 

system  attribute  8 > -3  - cease  engagement  - task  83 

I 

Task  49:  Engagement  Part  B (ENGAGES)  I 

This  task  represents  the  final  portion  of  the  tracking 
process.  It  may  be  released  upon  the  completion  of  task  48,  j 

51,  53,  55  or  58.  The  parameters  for  the  task  performance  ! 

time  are  stored  in  distribution  set  1. 

Moderator  function  4 is  called  to  update  fire  unit  status. 

Moderator  function  11  is  called  to  collect  statistics.  i 

■ n 

Branching  is  based  on  system  attribute  8 which  is  set  by  I: 

h; 

user  function  26.  This  function  checks  to  see  if  the  fire  unit  i 

has  received  a cease  fire  or  hold  fire  message.  Upon  completion 
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of  this  task,  the  possible  branches  are; 

system  attribute  8 > 0 - fire  - task  50 
system  attribute  8 > -1  - hold  fire  - task  86 
system  attribute  8 > -2  - cease  fire  - task  83 

Task  50;  Fire  (FIRE) 

This  task  represents  the  fire  unit  firing  a missile  at 
the  target.  It  may  be  released  upon  the  completion  of  task  49. 
The  parcimeters  for  the  task  performance  time  are  stored  in 
distribution  set  14. 

Moderator  function  2 is  called  to  collect  statistics. 

Upon  ccmpletion  of  this  task,  the  fire  unit  proceeds  to 
task  51. 

Task  51;  Evaluation  of  Firing  (EVALFIRE) 

This  task  controls  the  evaluation  and  branching  that  results 
from  the  evaluation  of  a firing  of  a missile  at  a target.  It 
may  be  released  upon  the  completion  of  task  50.  The  task  per- 
formance time  is  0. 

Moderator  function  12  is  called  to  collect  statistics. 
Branching  is  based  on  system  attribute  8 which  is  set  by 
user  function  27.  This  function  checks  to  see  if  the  missile 
destroyed  the  target.  If  it  did  not,  it  further  checks  to  see 
if  the  target  is  still  within  the  range  and  if  the  fire  unit 
still  has  weapons.  The  conditional  branching  for  this  task 
directs  the  fire  unit  to; 

system  attribute  8>1  - effective, ineffective  out  - task  53 

of  range;  check  for 
secondary  track 

system  attribute  8 > 0 - ineffective  within  range  - task  4 9 
system  attribute  8 >-l  - out  of  missiles  - task  74 
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This  task  represents  the  fire  unit  checking  for  a 
secondary  track  to  continue  with  an  engagement.  It  may  be 
released  upon  the  completion  of  task  46,  51  or  57.  The  task 
performance  time  is  0. 

Branching  is  based  on  system  attribute  8 which  is  set 
by  user  function  28.  This  function  updates  both  the  fire  unit 
and  track  status.  It  also  checks  for  a secondary  assignment. 

Upon  completion  of  this  task,  the  fire  unit  is  directed 
to  task  49  if  system  attribute  8 is  greater  than  0,  indicating 
there  is  a secondary  assignment  to  engage,  or  the  fire  unit  is 
directed  to  task  88  if  system  attribute  3 is  greater  than  -1, 
indicating  that  the  fire  unit  should  return  to  an  unused  status. 
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Task  54;  Hold  Fire  (HOLDFIRE) 

This  task  represents  the  fire  unit  receiving  a hold  fire 
message.  It  may  be  released  upon  the  completion  of  task  46. 

The  task  performance  time  is  0 . 

User  function  29  is  called  to  update  the  fire  unit  status 
and  acknowledge  the  receipt  of  the  hold  fire  message. 

There  is  no  branching  from  this  task. 

Task  55;  Clear  Hold  Fire  (CLEARHF) 

This  task  represents  the  fire  unit  receiving  a clear  hold 
fire  message  and  its  resulting  activity.  It  may  be  released 
upon  the  completion  of  task  59.  The  task  performance  time  is  C. 

The  resulting  action  may  involve  the  reengagement  of  a track  if 
a hold  fire  message  had  been  received.  If  the  fire  unit  is 
not  currently  holding  fire,  no  action  is  taken. 


Branching  is  based  on  system  attribute  8 which  is  set  by 
user  function  30.  This  function  checks  to  see  if  a clear  hold 
fire  message  has  been  received. 

Upon  completion  of  this  task,  the  fire  unit  is  directed 
to  task  50  if  system  attribute  8 is  greater  than  Ot  indicating 
there  had  been  a hold  fire  message  or  to  task  87  if  system 
attribute  8 is  greater  than  -1,  indicating  no  action  was  necessary. 

Task  57;  Cease  Fire  Message  (CEASEF) 

This  task  represents  the  fire  unit  receiving  a cease  fire 
message.  It  may  be  released  upon  the  completion  of  task  46. 

The  task  performance  time  is  0. 

Three  possible  actions  may  result  from  a cease  fire  message. 
First,  the  fire  unit  may  simply  cease  fire  on  a secondary  track. 
Second,  the  fire  unit  may  cease  fire  on  a primary  track,  then 
proceed  to  check  for  a secondary  track  to  engage.  Third,  the 
fire  unit  may  not  be  engaging  any  track  in  which  case  no  action 
is  taken. 

Branching  is  based  on  system  attribute  8 which  is  set  by 
user  function  31.  This  function  checks  for  the  appropriate 
conditions  and  sets  the  appropriate  value  to  system  attribute  8. 

Upon  completion  of  this  task,  the  fire  unit  is  directed  to 
task  53  if  system  attribute  8 is  equal  to  0,  indicating  that  a 
secondary  target  exists  and  an  engagement  should  be  made  on  that 
track  or  to  task  87  if  system  attribute  8 is  equal  to  1,  indi- 
cating that  no  further  action  is  necessary. 
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Task  58;  In  Range  (INRANGE) 

This  task  represents  the  fire  unit's  determining  that  a 
target  that  was  out  of  range  now  is  in  range;  at  this  time  the 
engagement  will  continue.  It  may  be  released  upon  the  completion 
of  task  59.  The  task  performance  time  is  0. 

Upon  completion  of  this  task,  the  message  to  reengage  the 
track  is  forwarded  to  task  49. 
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Task  59;  Fire  Unit  Router  B (FUROUTB) 

t 

This  task  continues  the  branching  originated  in  task  46. 

It  may  be  released  upon  the  completion  of  task  46.  The  task 
performance  time  is  0. 

The  possibilities  for  branching  on  the  completion  of 
this  task  are: 

information  attribute  3=5-  clear  hold  fire  - task  55 
information  attribute  3 = 6 - in  range  - task  58 

Task  61:  Update  Auto  (UDAUTO) 

This  task  is  a system  task  and  is  used  to  initiate  automatic 
updating  of  the  track  and  fire  unit  status.  This  is  a source 
task  and  is  released  at  time  0.  It  may  also  be  released  upon 
the  completion  of  task  63.  The  task  performance  time  is  0. 

Moderator  function  10  is  called  for  fire  unit  statistics. 
User  function  32  is  called  to  initiate  the  counter  used 
by  task  63. 

Upon  completion  of  this  task,  the  system  is  directed 
to  task  62. 
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Task  62;  Range  Timer  (RANGETIM) 

This  task  is  used  for  system  control  to  regulate  the 
frequency  with  which  the  automatic  updates  are  made.  It  may 
be  released  upon  the  completion  of  task  61. 

Upon  completion  of  this  task,  the  system  is  directed  to 
task  63. 


Task  63;  Automatic  Update  (AUTOUD) 

This  task  is  used  for  system  control  to  update  the  system 
status  in  four  areas.  It  may  be  released  upon  the  completion 
of  task  62  or  63.  The  task  performance  time  is  0. 

First,  it  checks  to  see  if  a friendly  track  has  been 
engaged.  If  it  has,  it  sends  a cease  fire  message.  Second, 
it  checks  for  tracks  that  are  being  held  by  a fire  unit 
because  they  are  out  of  firing  range.  If  it  is  within  firing 
range,  it  reinitiates  the  engagement.  Third,  it  checks  on 
those  engaged  tracks  that  are  under  a hold  fire  order.  If 
the  track  has  changed  to  a hostile  target,  it  reengages  the 
track.  If  the  unknown  track  has  come  within  a specified  range 
and  the  system  is  under  free  attack  policy,  the  target  is 
reengaged.  Fourth,  if  the  target  is  not  engaged  and  it  has 
come  within  range  and  it  is  either  unknown  or  hostile,  it  may 
be  engaged.  These  checks  are  made  for  one  track  every  time 
this  task  is  executed. 

The  branching  for  this  task  is  determined  by  system 
attribute  6 which  is  set  by  user  function  33.  This  function 
checks  for  each  of  the  conditions  described  above  and  sets  the 


branching  and  status  variables  accordingly. 
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Each  time  a change  is  found,  a message  is  sent  to  the 
fire  unit  section  and  a signal  is  sent  to  reexecute  this  task.  ^ 

This  is  continued  until  no  changes  have  been  made  at  which  tiem  , ; 

a signal  is  sent  to  task  61  and  the  automatic  cycle  continues. 

In  addition,  a signal  is  sent  to  task  75  if  an  unassigned  track 
has  been  engaged  by  a fire  unit.  Also,  if  the  track  was  an 
unknown  track  and  it  was  engaged  under  the  tight  engagement 
condition,  a hold  fire  message  will  automatically  be  sent  to 
the  fire  unit  by  task  64.  The  possible  branches  from  this 
task  are: 

system  attribute  6 <.  1 - task  63 

system  attribute  6 £ 1 - task  46 

system  attribute  6 £ 0 - task  64 

system  attribute  6 > 1 - task  61 

system  attribute  10  > 0 - task  75 

' m 

Task  64;  Automatic  Hold  Fire  (AUTOHF) 

This  task  is  used  for  system  control  to  send  a hold  fire 
message  to  the  fire  units  when  an  unknown  track  has  been  engaged 
with  the  tight  engagement  policy  in  effect.  It  may  be  released 
upon  the  completion  of  task  63.  The  task  performance  time  is  0. 

The  value  of  information  attribute  3 is  set  to  3 to  indi- 
cate to  the  fire  unit  that  this  is  a hold  fire  message. 

‘ji 

Upon  completion  of  this  task,  the  message  is  sent  to  i 

} 

task  46. 

Task  65;  Start  Tracks  (STTRACK) 

This  task  is  used  for  system  control  and  generates  the  i- 


information  packet  used  to  control  the  aircraft  flight.  The 
task  is  released  once  for  each  track  that  will  be  flown  during 
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the  mission.  This  is  a source  task  and  is  released  at  time  0. 

It  may  also  be  released  upon  the  completion  of  itself.  The 
task  performance  time  is  0. 

Branching  is  based  on  system  attribute  9 which  is  set 
by  user  function  34.  This  function  counts  the  number  of  tracks 
that  are  to  be  used  and  initiates  the  information  packet 

i 

associated  with  each  aircraft.  It  sets  the  value  of  system 
attribute  9 to  0 if  there  are  more  planes  to  be  generated. 

After  all  planes  have  been  generated,  the  value  of  system 
attribute  9 is  set  to  1. 

Upon  the  completion  of  this  task,  the  system  is  directed 
to  task  66  or  back  to  itself. 

Task  66;  Initiate  Tracks  (INITRAK) 

This  task  is  used  for  system  control  to  initiate  the  tracks 
at  the  time  they  are  scheduled  to  appear  on  the  scope.  It  may 
be  released  upon  the  completion  of  task  65.  The  task  performance 
time  is  set  by  moderator  function  5. 

User  function  35  is  called  at  the  completion  of  this  task 
to  initiate  the  SS  variables  and  the  track  status. 

Upon  completion  of  this  task,  the  system  is  directed  to 
task  67  and  68. 

Task  67;  Route  Update  (ROUTUP) 

This  task  is  used  for  system  control  to  update  the  flight 
path  of  the  aircraft.  It  is  released  at  each  turning  point  for 
all  flight  paths  and  upon  the  comletion  of  task  66  and  itself. 


The  task  performance  time  is  set  to  the  time  of  the  next  turning 
point  by  user  function  38. 

The  status  of  the  flight  is  updated  by  a call  to  user 
function  36. 

Upon  completion  of  this  task,  the  system  is  directed  to 
itself,  task  67. 


Task  68;  Status  Update  (STATUD) 

This  task  is  used  for  system  control  to  update  the 
identification  status  of  the  aircraft.  It  may  be  released  upon 
the  completion  of  task  66  and  itself.  The  task  performance 
time  is  set  by  user  function  39  so  that  the  task  is  completed 
each  time  a status  update  is  necessary. 

The  status  of  the  tracks  is  updated  by  a call  to  user 
function  37. 

Moderator  function  10  is  called  to  collect  statistics  on 
this  update. 

Upon  completion  of  this  task,  the  system  is  directed  to 
task  68.  It  may  also  be  directed  to  task  75,  if  the  change 
produced  by  this  task  is  reflected  on  the  scope.  This  is 
accomplished  by  branching  to  task  68  if  the  value  of  system 
attribute  10  is  less  than  or  equal  to  1 and  by  branching  to 
task  75  if  the  value  of  system  attribute  10  is  greater  than  0. 


Task  70;  Return  from  Hooking  B (RHOOKB) 

This  task  is  used  to  return  the  operator  to  the  standard 
sequence  of  events.  It  may  be  released  upon  the  completion 
of  task  45.  The  task  performance  time  is  0. 
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The  branching  from  this  task  is  controlled  by  system 

attribute  4,  The  possible  branchings  are: 

system  attribute  4=5-  task  27 
system  attribute  4=6-  task  29 
system  attribute  4=7-  task  23 
system  attribute  4=8-  task  34 

Task  71:  Timer  (TIMER) 

This  system  timer  is  used  to  control  the  length  of  the 
simulation.  This  task  is  a source  task  and  is  released  at 
time  0.  The  task  performance  is  the  length  of  the  simulation 
and  should  be  set  by  the  user. 

Upon  completion  of  this  task,  the  system  is  directed  to 
task  72. 

Task  72 t Sink  (SINK) 

This  task  is  used  to  indicate  to  the  system  that  the 
simulation  has  ended.  It  may  be  released  upon  the  completion 
of  task  71.  The  task  performance  time  is  0. 

This  is  a sink  task  and  the  simulation  is  terminated 
upon  completion  of  this  task. 

Task  75:  Branch  for  Clearing  (BRCEARft) 

This  system  task  is  used  to  determine  if  the  operator 
could  be  processing  (not  including  hooking)  a track  whose 
identif icatioii  status  has  concurrently  been  altered.  It  is 
assumed  that  the  operator  would  recognize  the  change  and  begin 
processing  the  symbol  under  its  new  form.  This  task  may  be 
released  upon  the  completion  of  task  63  or  68.  The  task 
performance  time  is  0. 
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Branching  from  this  task  is  based  on  system  attribute  5 

which  is  set  by  user  function  45.  This  function  checks  to  see  ! 

if  the  operator  is  currently  processing  the  track  symbol  that 

has  just  been  updated.  If  it  is,  an  appropriate  branch  is 

made  to  clear  the  resource.  This  clearing  represents  the 

operator  interrupting  his  processing  of  the  track  symbol.  If  Q 

the  operator  might  currently  be  in  the  process  of  hooking  the 

track,  the  system  is  directed  to  task  79. 

The  possible  branches  from  this  task  are: 

system  attribute  5 = 2 - to  unknown  - task  76 

system  attribute  5 = 3 - to  friendly  - task  77 

system  attribute  5 = 4 - to  hostile  - task  78 

system  attribute  5=5-  other  - task  79 

Task  76;  Clear  to  Unknown  (CLUNKA) 

This  task  is  used  for  system  control  to  terminate  the 
operator's  processing  of  a track  under  a status  different  from 
unknown  and  to  initiate  processing  of  the  track  under  the  unknown 
status.  It  may  be  released  upon  the  completion  of  task  75. 

The  task  performance  time  is  0. 

Resource  nximber  1 is  cleared  and  a signal  is  sent  to 
task  9. 

Task  77:  Clear  to  Friendly  (CLFRNA) 

This  task  is  used  for  system  control  to  terminate  the 
operator's  processing  of  a track  under  a status  different 
from  friendly  and  to  initiate  his  processing  of  the  track 
under  the  friendly  status.  It  may  be  released  upon  the  com- 
pletion of  task  75.  The  task  performance  time  is  0. 

Resource  1 is  cleared  and  a signal  is  sent  to  task  21. 
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This  task  is  used  for  system  control  to  terminate  the 


operator's  processing  of  a track  with  a status  different  from 
hostile  and  to  initiate  his  processing  of  the  track  under  the 
hostile  status.  It  may  be  released  upon  the  completion  of 
task  75.  The  task  performance  time  is  0. 

Resource  1 is  cleared  and  a signal  is  sent  to  task  25. 

Task  79;  Branch  for  Clearing  (BRCLEARB) 

This  system  task  is  used  to  determine  if  the  operator 
could  be  processing  (including  hooking)  a track  whose  identi- 
fication status  has  concurrently  been  altered.  It  is  assumed 
that  the  operator  would  recognize  the  change  and  begin  processing 
the  symbol  under  its  new  form.  This  task  may  be  released  upon 
the  completion  of  task  75.  The  task  performance  time  is  0. 

The  value  of  system  attribute  5 is  used  for  this  branching 
and  is  set  by  user  function  46. 

The  possible  branchings  from  this  task  are: 

< 

system  attribute  5=2-  task  80 

system  attribute  5=3-  task  81 

system  attribute  5=4-  task  82  i 

t 
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Task  80;  Clear  to  Unknown  (CLUNKS)  ' 

I < This  task  is  used  for  system  control  and  performs  the 

I same  function  as  task  76.  It  may  be  released  upon  the  completion 

^ of  task  79. 

I 

j|  Resource  1 is  cleared  and  a signal  is  sent  to  task  9. 
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Resource  2 is  cleared  and  a signal  is  sent  to  task  9. 


This  task  is  used  for  system  control  and  has  the  same 
function  as  task  77.  It  m.ay  be  released  upon  the  completion 


of  task  79.  The  task  performance  time  is  0. 

Resource  1 is  cleared  and  a signal  is  sent  to  task  21. 
Resource  2 is  cleared  and  a signal  is  sent  to  task  21. 

Task  82;  Clear  to  Hostile  (CLHOSB) 

This  task  is  used  for  system  control  and  has  the  same 
function  as  task  78.  It  may  be  released  upon  the  completion 
of  task  79.  The  task  performance  time  is  0. 

Resource  1 is  cleared  and  a signal  is  sent  to  task  25. 
Resource  2 is  cleared  and  a signal  sent  to  task  25. 
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Task  83:  Cease  Fire  Trap  (CSTRAP) 

This  task  represents  the  conclusion  of  the  processing  of 
a cease  fire  message.  It  may  be  released  upon  the  completion 
of  tasks  47,  48,  or  49.  The  task  performance  time  is  0. 

There  is  no  branching  from  this  task. 

Task  84;  Out  of  Range  Trap  (ORANTRAP) 

This  task  is  called  when  a target  has  finished  the 
first  part  of  the  engagement  but  is  still  out  of  range  for 
missile  firing  and  represents  the  holding  action  of  a fire 
unit  during  this  process.  It  may  be  released  upon  the 
completion  of  task  48.  The  task  performance  time  is  0. 

There  is  no  branching  from  this  task. 
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Task  85;  Hold  Secondary  Assignment  (HLD2TRAP) 

This  task  represents  the  delaying  of  the  engagement  when 
the  secondary  target  has  been  processed  to  a point  before 
firing.  It  may  be  released  upon  the  completion  of  task  48. 

The  task  performance  time  is  0. 

No  branching  is  taken  from  this  task. 

Task  86;  Hold  Fire  Trap  (HFTRAP) 

This  task  represents  the  halting  of  the  engagement  due 
to  a hold  fire  message.  It  may  be  released  upon  the  completion 
of  task  49.  The  task  performance  time  is  0. 

There  is  no  branching  from  this  task. 

Task  87:  Message  Trap  (MSGTRAP) 

This  task  absorbs  the  messages  to  the  fire  units  that 
require  no  further  action.  It  may  be  released  upon  the 
completion  of  task  55  or  57.  The  task  performance  time  is  0. 
There  is  no  branching  from  this  task. 

Task  88;  Fire  Unit  Trap  (FUTRAP) 

This  task  represents  the  fire  unit  returning  to  the 
unused  state.  It  may  be  released  upon  the  completion  of 
task  53.  The  task  performance  time  is  0. 

There  is  no  branching  from  this  task. 
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Table  I 

DISTRIBUTION  SETS 
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The  distribution  sets  included  in  the  SAINT  model  are 
used  as  the  basis  for  generating  the  operator  performance 
times,  the  fire  unit  performance  times,  and  fire  unit  engage- 
ment ranges.  In  this  table,  M-n  refers  to  moderator  function 
n,  U-n  refers  to  user  function  n and  T-n  refers  to  task  n. 
Distribution 


Number 

Location  of  Use 

Definition 

1 

M-l,BUZY,NHOOK 

Random  niomber  generator 

2 

M-l(2) 

Search,  scanning  time 

3 

4 

T-3,T-9,T-21, 

Not  used 

Observing  and  recognizing 

5 

T-22,T-28 

U-3,T-4 

display  data 

Radar  sweep  rate 

6 

T-7,T-42 

Position  tap 

7 

U-18,T-8,T-10, 

Pressing  single  button 

8 

T-11,T-13,T-15, 

T-19,T-20,T-23, 

T-26,T-27,T-30, 

T-32,T-34,T-35, 

T-40,T-41,T-43, 

T-44 

T-12 

Read  ARO  message 

9 

T-25,T-27,T-33 

Read  DDG  message 

10 

T-49 

B engagement  time  for  FU 

11 

T-37,T-39 

Enter  data  via  keyboard 

12 

T-47 

Attachment  time  for  FU 

13 

T-48 

A engagement  time  for  FU 

46 


Table  I (continued) 


Distribution 


Set  Number 

Location 

Definition 

14 

T-50 

Firing  time  for 

FU 

15 

U-33  (2) 

Auto  engagement 
hostile  targets 

range 

for 

16 

U-33(2) ,U-28 

Auto  engagement 
unknown  targets 

range 

for 

I 
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Table  II 
VISUAL  VALUES 

The  visual  values  given  here  are  used  by  moderator  function  1 
to  pick  the  next  object  for  the  operator  to  process.  They  repre- 
sent a significance  value  (VAL)  and  a stimulation  value  (STI)  that 
each  type  of  symbol  exhibits. 


RAW/PROCESS  VIDEO 

1 Auto  Init. 

2 Man  Init. 

TRACKS 
Unknown 
New 

Old  > 60 
Old  < 60 

Friendly 
New 

H ->  F 
U F 

Old 


[ 

I 

[ 


* 

* 

* 


9 

10 

11 

12 


Hostile 

New 

U H 
F -*•  H 
Old  > 60 
Old  < 60 

Special 


VAL  STI 

1 2 

6 2 


4 

2 

7 


3 

3 

3 


9 

4 

1 


3 

3 

3 


5 

7 
3 

8 


4 

4 

4 

4 


I 

I 

( 


13 

Blinking 

9 

6 

14 

N-B  > 60 

7 

5 

15 

FIRE 

N-B  < 60 

UNITS 

5 

5 

16 

Blinking 

Non-Blinking 

9 

6 

17 

No  Host. 

1 

1 

18 

Host.  No  Eng. 

3 

3 

19 

Engagements 

6 

9 
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Table  III 
SAINT  ATTRIBUTES 

Information  Attributes 
1 : Track  number 
2 : Fire  unit  number 

3 : Fire  unit  message  indicator 

1 = clear  effective  status 

2 = engage  fire  unit  to  track 

3 = hold  fire 

4 = cease  fire 

5 = clear  hold  fire 

6 = in  range 


SECTION  III 


DOCUMENTATION  OF  USER-WRITTEN  SUBPROGRAMS 


This  section  presents  the  program  documentation  for  the 
user-written  subprograms  of  the  SAINT  model  of  the  AN/TSQ-73 
system.  A functional  breakdown  of  the  subprograms  is  given 
in  Table  IV.  The  categories  included  in  the  table  are: 

1.  Echo  Check  (EC)  - listing  mission  input. 

2.  Operator  Processing  (OP)  - controls  simulated  actions 
of  operator/repairman. 

3.  System  Processing  (SP)  - controls  simulation  of  the 
system's  computer  operation  and  the  operation  of  the 
fire  units. 

4.  Aircraft  Processing  (AP)  - maintains  the  simulated 
tracks. 

5.  Model  Operation  (MO)  - maintains  the  actual  operation 
of  the  model,  i.e.,  initializes  and  re^s  variables. 

Figures  1,  2,  and  3 provide  a complete  listing  of  all 
user-written  support  subprograms,  function  USERF,  and  subroutine 
MODRF,  respectively.  Figure  1 also  contains  a listing  of  the 
BLOCK  DATA  subprogram.  This  subprogram  is  used  to  initialize 
selected  variables  that  appear  in  the  labeled  COMMON  blocks. 

In  addition.  Tables  V and  VI,  appearing  at  the  end  of  this 
section,  provide  definitions  of  variables  used  in  the  user- 
written  subprograms. 


50 


j 


1 

f I 


Table  IV 

SUBPROGRM  FUNCTIONAL  AREAS 


I 

t 


EC  OP 

SP 

AP 

AHEAD 

X 

ASSIG 

X 

BUZY 

X 

CLOTR 

X 

CONT 

X 

END  IT 

ENG 

X 

INTLC 

LOG 

X 

NEWTR 

X 

NHOOK 

X 

RANGF 

X 

RSTART 

SETTR 

X 

SETV 

X 

STATE 

X 

STORP 

X 

UECHO 

X 

UIN 

UPTR 

X 

USERF 

X 

X 

X 

MODRF 

X 

X 

X 

t 


MO 


X 


X 


X 


X 


! 


51 


Function  AHEAD  (X,Y) 

This  function  returns  the  heading  in  degrees  of  an 
aircraft  where  the  aircraft's  velocity  is  given  as  x and  ^ 

This  function  is  called  from  subroutine  UECHO.  This  function 
makes  use  of  the  standard  functions  for  Arcsine  and  Arccosine, 


Function  ASSIG  (TR) 

This  function  is  used  to  assign  a fire  unit  to  a track  for 
an  engagement.  It  may  be  called  from  user  function  33  to 
assign  a track  in  the  automatic  mode  or  from  user  function  42 
to  assign  a track  in  the  manual  mode. 

The  function  checks  all  available  fire  units  eliminating 
those  that  are  out  of  commission  and  those  for  which  the 
track  will  come  no  closer  than  25  miles.  It  also  eliminates 
the  possibility  of  a secondary  assignment  if  the  target  is  not 
hostile.  It  assigns  a penalty  of  40  miles  for  those  fire  units 
that  have  a primary  assignment  and  then  picks  the  fire  unit 
that  is  closest  to  the  track  at  the  present  time.  If  no 
suitable  units  are  available,  a value  of  0 is  returned. 


Function  BUZY  (B,T) 

The  purpose  of  this  function  is  to  assign  a value  that  has 
a lower  limit  of  B and  an  upper  limit  of  T.  This  value  will 
depend  on  the  total  number  of  tracks  and  types  of  tracks 
that  are  currently  being  observed  on  the  scope  (i.e.,  the 
total  sum  of  values  as  figured  in  moderator  function  1) . 

This  function  value  will  be  close  to  B if  the  system  is  busy 
and  close  to  T if  the  system  is  not  busy. 
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This  function  is  called  numerous  times  by  different  user 
functions. 

Subroutine  CLOTR  (TR, IIFU,CLV, MIND, TMIN, PIS) 

This  subroutine  returns  the  closing  velocity,  CLV,  the 
minimum  distance  ever  obtained,  MIND,  the  time  to  this 
minimum  distance,  TMIN,  and  the  current  distance,  DIS,  of 
a track,  TR,  and  a fire  unit,  IIFU.  It  is  called  by  the 
function  ASSIGN  and  user  functions  30  and  33. 

The  subroutine  first  figures  the  distance  between  the 
fire  unit  and  the  track.  Notice  that  this  is  not  the  value 
of  the  SS  variable.  For  an  unassigned  track  the  SS  variable 
represents  the  distance  to  the  center  of  the  system  and 
not  the  distance  to  the  fire  unit.  The  current  distance  to 
the  fire  unit  and  the  current  speed  of  the  aircraft  are  then 
computed.  If  the  speed  is  0 (or  near  0) , a special  case  is 

I 

assumed  and  special  values  are  returned.  The  same  approach 
is  used  if  the  distance  is  0 (or  near  0),  i.e.,  special  values 
are  returned.  The  closing  velocity  of  the  track  to  the  site 
is  then  computed  using  the  dot  product.  Finally,  the 
minimum  distance  and  time  to  this  minimum  distance  are  figured. 

There  are  three  special  case  messages  returned  by  this  7 

subroutine  via  special  values  for  the  return  variables.  If  the  ■ 

f 

aircraft  is  flying  away  from  the  site,  the  minimiim  distance, 

MIND,  is  set  to  5,000.  Also  TMIN  is  set  to  -1.  For  a track 
that  is  over  the  site  the  distance  is  set  to  0,  the  closing 
velocity  is  set  to  0 and  the  minimum  distance  and  time  to 

] 
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minimum  are  set  as  if  the  aircraft  were  flying  away  from  the 
site.  If  the  target  is  not  moving  the  distance  to  the  site, 

DIS,  is  set  to  -1.  The  closing  velocity,  CLV,  is  set  to  0 
and  the  minimum  distance  and  time  to  minimum  are  set  as  above. 

Subroutine  CONT  (ITN) 

This  function  is  used  to  set  a flag  so  that  the  search 
task  will  continue  on  with  this  target  under  a new  classifi- 
cation that  is  the  result  of  the  current  task.  This  subrou- 
tine is  called  by  user  functions  6,  18,  and  19. 

Subroutine  ENDIT  (I) 

This  SAINT  subroutine  is  used  to  print  the  statistics 
for  each  run  and  reset  the  variables  needed  for  the  next  run. 
This  is  accomplished  by  calls  to  SAINT  subroutines  UCLCT, 

UHIST  and  UTMST  as  well  as  a call  to  the  user  subroutine  RSTART. 

Function  ENG  (ID) 

This  function  is  used  to  check  if  an  engagement  has  been 
cancelled.  It  is  a logical  value  function  and  returns  the  value 
of  false  if  the  track  and  fire  units  are  no  longer  engaged. 

It  returns  the  value  of  true  otherwise.  It  also  returns  the 
value  for  ID  equal  to  0 if  the  track  is  a primary  track 
and  the  value  for  ID  equal  to  1 if  a secondary  track. 

This  function  is  called  from  several  locations  in  the 
fire  unit  section  of  the  program. 


Subroutine  INTLC 

This  SAINT  subroutine  is  called  by  the  user  subroutine  UIW 
for  the  purpose  of  inputting  user  data.  In  addition,  it  initial- 
izes the  SS  variables  to  a value  well  outside  the  range  of  the 
radar  screen. 


Subroutine  LOG  (TA,TB,X, Y,VX,VY) 

This  subroutine  is  used  to  update  the  position  of  the  air- 
craft for  the  purpose  of  the  echo  check.  This  subroutine  is 
called  by  subroutine  UECHO.  The  value  of  TA  is  the  last  time  of 
update;  the  value  of  TB  is  the  current  time.  The  variables  X and 
Y are  input  as  the  old  location  and  output  as  the  current 
location.  Velocity  is  input  through  VX  and  VY. 


Function  NEWTR  (PRN) 

This  function  checks  to  see  if  the  identification  status  of 
the  track  is  the  same  as  the  last  time  the  track  was  observed.  It 
is  a logical  value  function  that  returns  a value  true  if  they  are 
different  and  false  if  they  are  the  same.  This  function  is  called 
from  the  user  functions  associated  with  tasks  3,  9,  21,  and  25. 


Function  NHOOK  (IT,GTRN) 

This  function  is  used  to  find  the  next  track  or  fire 
unit  number  that  would  be  hooked  by  pressing  the  sequence 
hook  button.  This  function  returns  the  value  of  1 if  the 
fire  unit  or  track  is  the  same  as  that  requested  by  the 
variable  GTRN.  It  returns  the  value  of  0 if  the  track  or 
fire  unit  is  different  than  that  requested.  It  returns  the 
value  of  -1  if  no  track  or  fire  unit  of  the  given  type  is 
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located.  This  function  is  called  by  user  function  23  during 
the  processing  of  a sequence  hook. 

The  function  proceeds  through  all  symbols,  both  fire 
units  and  tracks,  until  one  of  the  correct  type  is  found. 

At  that  time  a check  is  made  to  see  if  it  is  the  track 
requested  and  a value  for  the  function  is  assigned 
accordingly.  The  possible  types  for  which  a function  can  look 
are  tracks,  fire  units,  and  high  threat  tracks. 

Function  RANGF  (TR,TK) 

This  function  is  used  to  return  a value  of  a piecewise 
linear  function  whose  characteristics  are  stored  in  the 
user-genera ced  task  characteristics  for  task  TK,  values  3-6. 
This  function  is  called  by  the  user  functions  associated  with 
tasks  9,  12,  and  25. 

The  value  of  the  function  is  the  value  of  task  character- 
istic 5 if  the  range  of  the  track  is  less  than  task  character- 
istic 3.  The  value  is  equal  to  task  characteristic  6 if  the 
range  of  the  track  is  greater  than  the  task  characteristic  4 . 
If  the  range  is  between  the  values  of  task  characteristics 
3 and  4,  a value  is  computed  that  lies  on  the  linear 
function  between  the  two  end  points. 

Subroutine  RSTART 

This  subroutine  is  used  to  initialize  values  before 
each  run.  It  is  called  by  subroutine  UIN  before  run  1 and 
by  subroutine  ENDIT  before  each  subsequent  run. 


the  system  attribute  that  will  be  required  upon  completion 
of  the  search  task. 

This  subroutine  is  called  by  moderator  function  1. 


Subroutine  SETV 

This  subroutine  is  called  by  moderator  function  1.  It  is 
used  to  assign  observation  values  to  each  track.  These  values 
are  based  on  three  factors.  The  first  depends  on  time.  Its 
value  increases  the  longer  the  fire  unit  or  track  is  not 
processed  by  the  operator.  The  second  factor  is  a value  that 
characterizes  the  type  of  symbol  and  therefore  its  importance. 
The  third  factor  is  a value  that  reflects  the  eye-catching 
ability  of  the  particular  type  of  symbol.  For  example, 
a hostile  track  will  have  a larger  second  value  than  a friendly 
track  and  a flashing  fire  unit  will  have  a larger  third  value 
than  a friendly  track.  In  order  to  assign  these  values,  the 
subroutine  checks  if  the  symbol  is  a track  or  fire  unit, 
whether  it  is  blinking  or  not,  the  type  of  track  it  is, 
whether  the  system  is  in  an  automatic  or  manual  mode,  whether 
the  track  is  close  to  the  center  of  the  system  and  if  the 
operator  has  previously  processed  that  particular  track 
under  its  current  identification.  (See  Table  II.) 

Subroutine  STATE 

The  SAINT  subroutine  STATE  is  s sad  to  maintain  a continuous 


monitor  on  all  track  locations.  Three  SS  variables  are  used 
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for  each  track.  They  represent: 

SS(I)  = location:  X-coordinate 
SS(I+1)  = location:  Y-coordinate 
SS(I+2)  = range  to  paired  fire  unitor  to  center  of  system 

The  location  is  defined  by  a linear  difference  equation. 

Turning  points  require  only  an  update  of  the  pointer  PTR  to 

change  the  direction  of  flight.  The  range  for  all  tracks 

is  initially  defined  to  the  center  of  the  system,  when  a 

track  is  engaged  by  a fire  unit,  the  variable  PAIR  is  updated 

and  the  value  of  the  range  changes  to  the  distance  the  track 

is  from  the  specific  fire  unit. 

Function  STORP  (B,C,NT) 

The  purpose  of  this  function  is  to  record  the  probabilities 
used  for  branching  in  system  attributes  1,  2,  and  3. 

This  function  is  called  several  times  by  numerous  user 
functions. 

The  function  first  checks  to  see  if  the  variable  NT  is 
equal  to  0.  If  it  is  not  equal  to  0,  the  user  defined  task 
characteristics  for  task  NT  are  used  to  modify  the  results. 

If  it  is  equal  to  0,  no  task  characteristics  are  used. 

The  values  of  B and  C are  then  stored  in  system  attributes 
2 and  3,  respectively  and  the  function  is  given  the 
value  for  system  attribute  1,  i.e.,  1 - (B+C)  . 

Subroutine  UECHO 

This  subroutine  is  used  to  print  the  data  that  is  read 
by  subroutine  UIN.  In  addition,  it  prints  out  the  meaning  of 
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the  symbols  used  and  the  operator  job  trace.  It  is  called 
by  subroutine  UIN  and  subroutine  ENDIT. 

The  logical  variables  that  control  the  system  procedures 
are  converted  to  alphanumerics  for  printing.  This  data  is 
then  printed.  Fire  unit  data  is  then  printed  with  one  line 
for  each  fire  unit.  Track  information  is  then  printed  in 
the  following  manner.  First,  the  track  nxamber,  the  initiali- 
zation time  and  characteristics  are  printed.  Then  the 
remaining  heading  changes  and  status  changes  are  sorted  and 
printed  in  the  proper  chronological  order  without  a track 
number.  Since  the  turning  points  are  determined  by  time,  the 
location  at  each  time  is  calculated  by  a call  to  LOC.  Also, 
the  speed  in  miles  per  hour  and  the  heading  in  degrees  are 
calculated  and  printed  along  with  the  information  that  was 
read  as  data. 

Subroutine  UIN 

This  subroutine  is  used  to  handle  the  user  input  data. 

It  is  called  from  subroutine  INTLC.  It  can  be  divided  into 
four  sections.  Section  1 reads  the  policy  information; 
section  2 reads  the  fire  unit  information;  section  3 reads 
track  routing  information;  and  section  4 reads  the  track 
identification  information.  Upon  completion  of  the  reading 
process,  a call  to  RSTART  is  made  to  initialize  values.  Then 
a call  is  made  to  UECHO  to  print  the  user  echo  check  of  all 


the  data  read. 
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Function  UPTR  (TRN) 

This  function  updates  the  status  of  a track  as  a result 
of  an  interrogation  process  by  the  operator.  It  is  a logical 
value  function  that  returns  the  value  FALSE  if  an  update  was 
made  and  a value  of  TRUE  if  no  change  occurred.  This  function 
is  called  from  the  user  functions  associated  with  tasks  8 and  12. 

, i 
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FUNCTIOli  AHEAD  (V.X) 

LOGICAL  LS.LC 

R = (X**2  + Y**2)**.5 

C s X/R 

LC  * C .GT.  0. 

S = Y/R 

LS  = S .GT.  0. 

S = ASIN(S) 

C * ACOS(C) 

IF(LS  .AND.  LC)  AHEAD  = 1FIX( (S*57.2SS77)  + .5) 
IF(LS  .AND.  .NOT.  LC  .OR.  .NOT.  LS  .AND.  .NOT.  LC) 

* AHEAD  = IFIXC 180.1  - (S  * 57.29577)) 
IF((.NOT.  LS)  .AND.  LC) 

* AHEAD  = IFlXOSO.l  - (C  * 57.29577)) 
RETURN 

END 


AHEAD 

1 

AHEAD 

2 

AHEAD 

3 

AHEAD 

4 

AHEAD 

5 

AHEAD 

6 

AHEAD 

7 

AHEAD 

8 

AHEAD 

9 

AHEAD 

10 

AHEAD 

11 

AHEAD 

12 

ERR2 

1 

AHEAD 

14 

ERR2 

2 

AHEAD 

16 

AHEAD 

17 

C 


C 


C 


10 
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FUNCTION  ASSIGCTR) 

ASSIG 

1 

LOGICAL  LP 

ASSIG 

2 

INTEGER  TR.BFU 

ASSIG 

3 

ASSIG 

4 

REAL  TRCLA(33.5),FUCLA(11.9) 

UCOMl 

1 

COMMON  .'UCOMl^  TRCLA.FUCLA 

UCOMl 

s 

UCOMl 

3 

INTEGER  NFU, NTRFU. NTRK 

UC0M7 

1 

COMMON  /'UC0M7/  NFU.  NTRFU.  NTRK 

UC0M7 

2 

UC0M7 

3 

UC0M7 

4 

UC0M7 

5 

ASSIG 

7 

CHECK  FOR  POSSIBLE  FU 

ASSIG 

8 

BU  = 10000000. 

ASSIG 

9 

BFU  = 0 

ASSIG 

1.0 

DO  10  NF  = l.NFU 

ASSIG 

11 

IF((FUCLA(NF.l)  .EQ.  7.)  .OR. 

ASSIG 

12 

* (FUCLACNF. 1)  .EQ.  0.)  .OR. 

ASSIG 

13 

* (FUCLA(NF.3)  .NE.  0.))  GO  TO  10 

ASSIG 

14 

ASSIG 

15 

CHECK  DISTANCES 

ASSIG 

16 

CALL  CLOTRC TR.  NF. CU. DMIN. TMIN. DIS) 

ASSIG 

17 

IF(DMIN  .GT.  25.)  GO  TO  10 

ASSIG 

18 

LP  = FUCLA(NF.2)  .NE.  0. 

ASSIG 

19 

IFCLP  .AND.  (TRCLA(TR.l)  .NE.  4.))  GO  TO 

10 

ASSIG 

20 

IF(LP)  DIS  = DIS  + 40. 

ASSIG 

21 

IF(DIS  .GT.  BU)  GO  TO  10 

ASSIG 

22 

ASSIG 

23 

RECORD  BEST  UALUES 

ASSIG 

24 

BU  = DIS 

ASSIG 

25 

BFU  = NF 

ASSIG 

26 

CONTINUE 

ASSIG 

27 

ASSIG 

28 

RECORD  SELECTION  IF  0 NO  POSSIBLE 

ASSIG 

29 

ASSIG  = FLOAT (BFU) 

ASSIG 

30 

RETURN 

ASSIG 

31 

END 

ASSIG 

32 
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SUBROUTINE  CLOTRCTRf IIFU.CLU.MIND. TMIN.DIS)  CLOTR 

INTEGER  TR.FU  CLOTR 

REAL  CLU.MIND.TMIN  CLOTR 

CLOTR 

INTEGER  PAIR(33).PTR(33).PTT(33).RSTAT(33)  CLOTR 

COMMON  /UCOMO/”  PTR, PTT, RSTAT. PAIR  CLOTR 

CLOTR 

REAL  TRCLA(33.5).FUCLA(11,9)  UCOMl 

COMMON  /UCOMl/  TRCLA.FUCLA  UCOMl 

UCOMl 

REAL  TRSTA(44.3).TRR0U(155.4),INR0U(33.2).TRTYP(33»3)  UCOMa 

COMMON  /UCOMa/  TRSTA. TRROU. INROU. TRTYP  UCOMa 

UCOMa 

CLOTR 

COMMON  /CQM17/  SS(100).SSL(100)tDD(100).DDL(100).LLSUR(100.a)  COM17 

CLOTR 

C FIGURE  UECTOR  BETWEEN  TR  AND  FU  CLOTR 

FU  = IIFU  CLOTR 

IF(FU  .EQ.  0)  FU  = 11  CLOTR 

ITR  * TR  * 3 - a CLOTR 

FX  = FUCLA(FU,4)  - SS(ITR)  CLOTR 

FY  = FUCLA(FU.5)  - SSdTR  + 1)  CLOTR 

CLOTR 

C FIGURE  DIST  CLOTR 

DIS  = (FX**a  + FY**a)  **.5  CLOTR 

CLOTR 

C FIGURE  SPEED  CLOTR 

UX  » TRROU ( PTR (TR), a)  CLOTR 

UY  = TRROU ( PTR (TR), 3)  CLOTR 

sp  = (ux**a  + uY**a)  **.5  clotr 

IF(ABS(SP)  .LT.  .005)  GO  TO  30  CLOTR 

CLOTR 

C FIGURE  GLOSSING  UELOCITY  IF  NOT  AT  SITE  CLOTR 

IF(ABS(DIS)  .LT.  .1)  GO  TO  20  CLOTR 

CLU  = (FX  * UX  + FY  * UY)  / DIS  CLOTR 

CLOTR 

C FIGURE  MIND  CLOTR 

IF(CLU  .LT.  0.)  GO  TO  10  CLOTR 

CO  = CLU  / SP  CLOTR 

SI  = (1.  - C0**2)**.5  CLOTR 

MIND  = DIS  * SI  CLOTR 

TMIN  = CO  * DIS  / SP  CLOTR 

RETURN  CLOTR 

CLOTR 

C GOING  AWAY  FROM  SITE  CLOTR 

10  MIND  = 5000.  CLOTR 

TMIN  = -1  CLOTR 

RETURN  CLOTR 

CLOTR 

C TR  OUER  SITE  CLOTR 

20  DIS  = 0.  CLOTR 

CLU  = 0.  CLOTR 

GO  TO  10  CLOTR 

CLOTR 

C TR  NOT  MOUING  CLOTR 

30  DIS  = -1  CLOTR 

CLU  * 0.  CLOTR 

GO  TO  10  CLOTR 

END  CLOTR 
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SUBROUTINE  CONT(ITN) 

INTEGER  NFU.NTRFU.NTRK 
COMMON  /UCOM?/  NFU.NTRFU.NTRK 


REAL  TRSTA(44, 3) . TRROU( 155.4). INR0U(33. 2) . TRTYP(33. 3) 
COMMON  /UC0M2/  TRSTA. TRROU. INROU. TRTYP 


DO  10  I = l.NTRFU 

IF(IFIX(TRSTA(I,1))  .EQ.  ITN)  TRSTA(I.3)  = -1 
10  CONTINUE 
RETURN 
END 


CONT  1 

UC0M7  1 

UC0M7  2 

UC0M7  3 

UC0M7  4 

UC0M7  5 

UC0M2  1 

UC0M2  2 

UC0M2  3 

CONT  4 

CONT  5 

CONT  G 

CONT  7 

CONT  8 

CONT  9 

CONT  10 


i 

i 

i 


SUBROUTINE  ENDIT(I) 

CALL  RSTART 

CALL  UCLCT(1..0) 

CALL  UHIST(1..0) 

CALL  UTMST(l..A.O) 

RETURN 

END 


END  IT 
ENDIT 
ENDIT 
ENDIT 
ENDIT 
ENDIT 
ENDIT 


1 

2 

3 

4 

5 
G 
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FUNCTION  ENG(ID) 

ENG 

1 

LOGICAL  ENG 

ENG 

2 

ENG 

3 

REAL  TRCLA(33.5).FUCLA(11.9) 

UCOMl 

1 

COMMON  ^UCOMl/'  TRCLA.FUCLA 

UCOMl 

2 

UCOMl 

3 

ENG 

5 

ENG 

6 

CHECK  IF  ENGAGEMENT  HAS  BEEN  CANCLED 

ENG 

7 

CALL  GETIA(l.TRN) 

ENG 

8 

CALL  GETIA(2.FN) 

ENG 

S 

ITRN  = TRN 

ENG 

10 

IFUN  = FN 

ENG 

11 

ENG  = .FALSE. 

ENG 

12 

IF(((FUCLA(IFUN.a)  .EQ.  TRN)  .AND. 

ENG 

13 

* (TRCLA(ITRN.4)  .EQ.  FN))  .OR. 

ENG 

14 

* ((FUCLA(IFUN.3)  .EQ.  TRN)  .AND. 

ENG 

15 

* (TRCLA(ITRN.4)  .EQ.  FN)))  ENG  » .TRUE. 

ENG 

16 

ID  = 0 

ENG 

17 

IF(FUCLA(IFUN.2)  .NE.  TRN)  ID  = 1 

ENG 

18 

RETURN 

ENG 

19 

END 

ENG 

20 

Figure  1(3).  Proaran  Listing:  Support  Proarans 
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SUBROUTINE  INTLG 

INTLG 

1 

INTEGER  NFU.NTRFU.NTRK 

UG0M7 

1 

GOMNON  yUCOIIF^  NFU.NTRFU.NTRK 

UC0N7 

2 

UG0N7 

3 

UG0M7 

4 

UGOM7 

5 

INTLG 

3 

GOMMON  /G0M17/  SS(100).SSL(100).DD(100).DDL(100).LLSUR(100,2) 

GOM17 

1 

INTLG 

5 

INTLG 

6 

GALL  UIN 

INTLG 

7 

K = 3 * NTRK 

INTLG 

8 

. DO  10  I = l.K 

INTLG 

9 

SS(I)  = 5000. 

INTLG 

10 

10  GONTINUE 

INTLG 

11 

RETURN 

INTLG 

12 

END 

INTLG 

13 

SUBROUTIME  LOC(Tfl.TB.X.Y.UX.UY) 

T = TB  - TA 

X = X + UX  * T 

Y = Y + UY  * T 

RETURN 

END 


LOG 

LOG 

LOG 

LOG 

LOG 

LOG 


1 

2 

3 

4 

5 

6 


FUNGTION  NEWTR(TRN) 

NEWTR 

1 

INTEGER  TRN 

NEWTR 

2 

LOGIGAL  NEWTR 

NEWTR 

3 

NEWTR 

4 

REAL  TRGLA(33.5).FUGLA(11.9) 

UGOMl 

1 ; 

GOMNON  -'UGOMl^  TRGLA.FUGLA 

UGOMl 

2 

UGOMl 

3 i 

NEWTR 

6 1 

NEWTR 

G 

CHEGK  IF  OBSERUED  .EQ.  LAST 

NEWTR 

8 * 

IF(TRGLA(TRN. 1)  .NE.  TRGLACTRN. 3) ) 

CO  TO  10 

NEWTR 

3 

NEWTR 

10 

' 

C 

THEY  ARE  THE  SAME 

NEWTR 

11 

i 

NEWTR  = .FALSE. 

NEWTR 

12 

< 

,1 

RETURN 

NEWTR 

13 

NEWTR 

14 

t 

G 

THEY  ARE  DIFFERENT 

NEWTR 

15 

10 

NEWTR  = .TRUE. 

NEWTR 

18 

.* 

TRGLACTRN. 3)  = TRGLACTRN. 1) 

NEWTR 

17 

RETURN 

NEWTR 

18 

END 

NEWTR 

19 

( 

Li 

Figure  IC'D.  Program 

Listing:  Support 

Programs 
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FUNCTIOM  NHOQK(IT.GTRN) 

NHOOK 

1 

INTEGER  SHPT.SHBPT 

NHOOK 

3 

NHOOK 

3 

NHOOK 

4 

COMMON  /C0M17X  SS(100).DDDX(500) 

NHOOK 

5 

REAL  TRST A ( 44 , 3 ) . TRROU ( 1 55 . 4 ) , I NROU (33.3). TRTYP (33.3) 

UCOMS 

1 

COMMON  /UCOMS/  TRSTA. TRROU. INROU. TRTYP 

UCOMS 

3 

UCOMS 

3 

INTEGER  NFU.NTRFU.NTRK 

UC0M7 

1 

COMMON  /UC0M7/'  NFU.NTRFU.NTRK 

UC0M7 

3 

UC0M7 

3 

UC0M7 

4 

UC0M7 

5 

NHOOK 

8 

DATA  SHPT/1/ 

NHOOK 

S 

NHOOK 

10 

c 

STORE  BEGINNING  POINTER 

NHOOK 

11 

SHBPT  = SHPT 

NHOOK 

13 

SHPT  = SHPT  + 1 

NHOOK 

13 

NHOOK 

14 

c 

LOOK  FOR  NEXT  PPOSSIBLE  SITE 

NHOOK 

15 

10 

IF  (SHPT  .GT.  NTRFU)  SHPT  = 1 

NHOOK 

16 

IF(GTRN  .NE.  0.)  GO  TO  11 

NHOOK 

17 

IF(UNFRM(1)  .GT.  .5)  GO  TO  15 

NHOOK 

18 

GO  TO  30 

NHOOK 

19 

11 

CONTINUE 

NHOOK 

30 

IF(IT  .GT.  0)  GO  TO  50 

NHOOK 

31 

NHOOK 

33 

c 

LOOKING  FOR  TRACK 

NHOOK 

33 

IF(TRSTA(SHPT.l)  .LE.  0.)  GO  TO  SO 

NHOOK 

34 

c 

FOUND  TRACK 

NHOOK 

35 

IF(TRSTA(SHPT.l)  .NE.  GTRN)  GO  TO  30 

NHOOK 

36 

NHOOK 

37 

c 

FOUND  CORRECT  TRACK 

NHOOK 

33 

15 

NHOOK  = 1 

NHOOK 

39 

RETURN 

NHOOK 

30 

NHOOK 

31 

c 

NOT  A TRACK  OR  INCORRECT  TRACK 

NHOOK 

33 

so 

IF(SHBPT  .EQ.  SHPT)  GO  TO  40 

NHOOK 

33 

SHPT  * SHPT  + 1 

NHOOK 

34 

GO  TO  10 

NHOOK 

35 

NHOOK 

36 

c 

FUUND  INCORRECT  TRACK 

NHOOK 

37 

30 

NHOOK  = 0 

NHOOK 

38 

RETURN 

NHOOK 

39 

NHOOK 

40 

c 

FOUND  NO  TRACK 

NHOOK 

41 

40 

NHOOK  = -1 

NHOOK 

43 

RETURN 

NHOOK 

43 

50 

IF(IT  .GT.  1)  GO  TO  60 

NHOOK 

44 

NHOOK 

45 

c 

LOOKING  FOR  FIRE  UNIT 

NHOOK 

46 

IF(TRSTA(SHPT.l)  .GE.  0.)  GO  TO  SO 

NHOOK 

47 

NHOOK 

48 

c 

FOUND  FIRE  UNIT 

NHOOK 

49 

IF(TRSTA(SHPT. 1)  .EQ.  GTRN)  GO  TO  15 

NHOOK 

50 

GO  TO  30 

NHOOK 

51 

NHOOK 

53 

c 

LOOKING  FOR  HT 

NHOOK 

53 

50 

IF(TRSTA(SHPT, 1)  .LE.  0.)  GO  TO  30 

NHOOK 

54 

NHOOK 

55 

c 

FOUND  TRACK 

NHOOK 

56 

IR  = TRSTA(SHPT. 1)  * 3. 

NHOOK 

57 

IF(SS(IR)  .GT.  50.)  GO  TO  30 

NHOOK 

58 

NHOOK 

59 

c 

FOUND  HOSTIL  TRACK 

NHOOK 

60 

IF(TRSTA(SHPT. 1)  .EQ.  GTRN)  GO  TO  15 

NHOOK 

61 

CO  TO  30 

NHOOK 

63 

END 

NHOOK 

63 

Figure  1(5).  Program  Listing:  Support 

Programs 
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: FUNCTION  RANGF(TR.TK)  RANGF 

^ INTEGER  TR.TK  RANGE 

^ RANGF 

I CONMON  /COMIF/  SS(l00)tSSL(100).DD(100).DDL(100).LLSUR(100f 2)  C0N17 

[ RANGF 

^ RANGE 

! C GET  RANGES  AND  PROPABILITIES  RANGE 

i R = SS(3  * TR)  RANGE 

1 CALL  GETTC(TK,3.R1)  RANGE 

f CALL  GETTC(TK,4.R2)  RANGE 

t CALL  GETTCCTK.S.Pl)  RANGE 

f.  CALL  GETTC(TK,e,P2)  RANGE 

I RAMGF 

C CHECK  RANGE  SIZE  RANGE 

I IF(R  .GE.  R2)  GO  TO  10  RANGE 

[ IE(R  .LE.  Rl)  GO  TO  20  RANGE 

y RANGF 

C RANGE  IN  MIDDLE  SECTION  RANGE 

RANGE  = ((R  - Rl)x(R2  - RD)  * (P2  - PI)  + PI  RANGE 

RETURN  range 

RANGF 

C RANGE  IN  UPPER  SECTION  RANGE 

10  RANGE  = P2  RANGE 

RETURN  range 

RAMGF 

C RANGE  IN  LOWER  SECTION  RANGE 

20  RANGE  = PI  RANGE 

RETURN  RANGE 

END  RANGE 


( 


'■) 


1 I 
f 

I 

<1 

*^1  : , 
I 


Figure  1(6).  Program  Listing:  Support  Programs 
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t 

il 

[] 

SUBROUTINE  RSTART 

RST ART 

1 1 

li 

REAL  TRCLA(33.5),FUCLA(11,9) 

UCOMl 

1 1 

1^ 

COMMON  xUCOMl/  TRCLA.FUCLA 

UCOMl 

2 I 

UCOMl 

3 1 

jl 

REAL  TRSTA (44.3).  TRROU (155.4). INROU ( 33. 2 ) . TRTYP (33.3) 

UC0M2 

1 1 

'i 

li 

COMMON  ^UC0M2/  TRSTA.  TRROU. INROU. TRTYP 

UC0M2 

c 1 

UC0M2 

3 i 

1 

li 

I NTEGER  P A IR  ( 33 ) . PTR  ( 33 ) . PTT  ( 33 ) . RST AT  ( 33 ) 

UC0M3 

1 

r 1 

COMMON  /UC0M3/  PTR. PTT. RSTAT. PAIR 

UC0M3 

2 ii 

UC0M3 

3 !* 

! i 

LOGICAL  AUTOI.AUTOR.AUTOE.TIGH 

UC0M4 

1 ; 

\l 

COMMON  -'UC0M4/  AUTOI.AUTOR.AUTOE.TIGH 

UC0M4 

2 

if 

REAL  UALUE(20).STI(20).STOT 

UC0M4 

UC0M5 

3 

i !: 

lI 

COMMON  ^UCOMS/  UALUE. STI. STOT 

UCOMS 

! 

UC0M5 

3 ! 

li 

INTEGER  TYHOOK. SEQT. PSEQ 

UCOMS 

1 

COMMON  xUCOMG-'  TYHOOK.  SEQT.  PSEQ 

UCOMS 

2 -i 

if 

, 

UCOMS 

3 ■ 

1 

i = 

INTEGER  NFU.NTRFU.NTRK 

UC0M7 

COMMON  /'UC0M7/  NFU.NTRFU.NTRK 

UC0M7 

2 . 

j . 

UC0M7 

3 1 

1 

UC0M7 

4 1 

1 1 

* - 

UCOM7 

5 i 

' i 

REAL  CX(33).CY(33) 

UCOMS 

1 

INTEGER  IPTR(33).IPTT(33) 

UCOMS 

2 

\ 

COMMON  /UC0M8/  CX. CY. IPTR. IPTT. IPC 

UCOMS 

3 

UCOMS 

4 I 

1 

■ ■ 

LOGICAL  TRCH 

UCOMS 

1 

REAL  TRMOD ( 33 ) . TOTRT ( 33 ) . TMARK . TMARE 

UCOMS 

a 

1 " 

INTEGER  NOLDTY.LPAGE 

UCOMS 

3 ;; 

X 

1 

COMMON  /-UCOMS^  TRCH. TRMOD. TOTRT. TMARK, TMARE. LP ACE. NOLDTY 

UCOMS 

4 

{ 

• « 

COMMON  /Zm\7/  SS(100),SSL(100),DD(100),DDL(100),LLSUR(100,2)  C0M17 

1 T 

]; 

RSTART 

4 i 

S 

li 

REAL  TFUN(IO) 

RSTART 

5 

COMMON  /UCOMO/  TFUN 

RSTART 

6 i. 

f 

il 

IPC  = 0 

RSTART 

7 3 

S h 

LPAGE  = 0 

RSTART 

j 

TMARK  = 0. 

RSTART 

9 1 

V 

* ’ 

TMARE  = 0. 

RSTART 

10  4 

1 1 

NOLDTY  = 1 

RSTART 

11  i 

1 

[ J 

TRCH  = .FALSE. 

RSTART 

la 

i 

DO  10  I = 1,33 

RSTART 

13  r 

1 

TRMOD(I)  = 1. 

RSTART 

14  5 

i 

f 

1 

10 

TOTRT(I)  = 0. 

RSTART 

15  r 

LI 

DO  20  I = l.NTRK 

RSTART 

IS  2 

RSTAT(I)  = 4. 

RSTART 

17  ff 

1 

TRMOD(I)  = 0. 

RSTART 

18 

']■ 

[ j 

PAIR(I)  = 11 

RSTART 

19  ^ 

ao  5 

( 

1 

PTR(I)  = IPTR(I) 

RSTART 

PTT(I)  = IPTT(I) 

RSTART 

21 

TRROU(PTR(I),2)  » CX(I) 

RSTART 

22  L 

r 1 

20 

TRR0U(PTR(I),3)  » CY(I) 

RSTART 

DO  30  I = l.NTRFU 

RSTART 

a4  1 

1.J 

30 

TRSTA(I,2)  = 0. 

RSTART 

25  i 

DO  40  I = l.NFU 

RSTART 

2B  1 

;; 

FUCLAd.S)  = TFUN(I) 

RSTART 

27  1 

i 1 

FUCLAd.l)  = 1. 

ERR2 

1 i 

"■■ 

LI 

TRSTAd.l)  = -I 

ERR2 

2 f 

i 

FUCLA(I,2)  = 0. 

RSTART 

as  § 

’ 

FUCLA(I,3)  = 0. 

RSTART 

29  I 

n 

FUCLAd.S)  = 0. 

RSTART 

30  1 

40 

FUCLA(I,7)  = 0. 

RSTART 

31  1 

L ! 

DO  50  I = l.NTRK 

RSTART 

32  1 

DO  50  J = 1,5 

RSTART 

33 

r I 

50 

TRCLAd.J)  = 0. 

RSTART 

34 

J = NTRK  * 3 

RSTART 

35 

IJ 

DO  SO  I = l.J 

RSTART 

3G 

SSd)  = 5000. 

RSTART 

37 

1 

60 

CONTINUE 

RSTART 

38 

! i 

RETURN 

RSTART 

39  j 

I'l 

END 

RSTART 

40  < 

;/ 

r 

Figure  1(7).  Program  Listing:  Support 

Programs 
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FI 

SUBROUTINE  SETTR(TFU) 

SETTR 

1 i 1 

REAL  TRCLA(33.5).FUCLA(11,9) 

UCOMl 

X ' I’M 

COMMON  yUCOmy  TRCLA.FUCLA 

UCOMl 

s J 

UCOMl 

3 1 

SETTR 

3 1 

SETTR 

4 1 

c 

CHECK  FOR  FU  OR  TRACK 

SETTR 

5 1 

IF(TFU  .GT.  0.)  GO  TO  10 

SETTR 

SETTR 

7 [j 

c 

IT  IS  A FU  NUMBER 

SETTR 

3 1 

CALL  PUTIA(2,-TFU) 

SETTR 

9 1 

CALL  PUTSAd.S.) 

SETTR 

10  H 

RETURN 

SETTR 

11  y 

SEtTR 

12  1 

c 

IT  IS  A TRACK  NUMBER 

SETTR 

13  y 

10 

CALL  PUTIACl.TFU) 

SEfTR 

14  1 

CALL  PUTSA(l.TRCLA(IFIX(TFU).l)) 

SETTR 

15  . i 

RETURN 

SETTR 

IS  y 

END 

SETTR 

17  P 

SUBROUTINE  SETU 

SETU 

LOGICAL  LDIS.LOLD 

SETU 

2 1 

SETU 

3 1 

COMMON  /C0M17/  SS(100).DDDX(S00) 

SETU 

4 <1 

REAL  TRCLA(33.5),FUCLA(11.S) 

UCOMl 

1 li 

COMMON  /UCOMl/  TRCLA.FUCLA 

UCOMl 

3 1 

UCOMl 

3 1 

REAL  TRSTA( 44. 3) . TRROU( 155.4). INR0U(33. 2) . TRTYP(33. 3) 

UC0M2 

^ ! 

COMMON  /UC0M2/  TRSTA. TRROU. INROU. TRTVP 

UC0M2 

2 

UC0M2 

3 ! 

LOGICAL  AUTOI.AUTOR.AUTOE.TIGH 

UCOM4 

1 

COMMON  /UC0M4/  AUTOI.AUTOR.AUTOE.TIGH 

UC0M4 

2 . { 

UC0M4 

3 

REAL  UALUE(20).STI(20).STOT 

UC0M5 

COMMON  /UC0M5/  UALUE.STI.STQT 

UC0M5 

2 1 

UCOMS 

3 i \ 

INTEGER  NFU.NTRFU.NTRK 

UC0M7 

1 f 1 

COMMON  /UCOM?/  NFU.NTRFU.NTRK 

UC0M7 

2 i j 

UC0M7 

3 

UC0M7 

4 

UC0M7 

5 

SETU 

10  ■ 

COMMON  /COM06/  TNOW.TTNEX.MFAD.SEED. ISEED.NCRDR.NPRNT.NPUNCH. 

COM06 

1 1 

* NRNIT.NRENT.MNDC.NDC.NDTN.NNTC 

COMOS 

2 

SETU 

12 

1 

SETU 

13  -S 

j 

SETU 

14  j! 

c 

FOR  ALL  TR  AND  FU 

SETU 

15  f 

DO  80  I = l.NTRFU 

SETU 

It 

TRSTA(I.3)  = 0. 

SETU 

1 

NTF  * TRSTA(I.l) 

SETU 

18  i 

TUAL  * (TNOW  - TRSTA(I.2))  ^ 50. 

SETU 

19  li 

SETU 

20  % 

! 

c 

DECIDE  IF  TR  OR  FU 

SETU 

I' 

IFCNTF  .EQ.  0)  GO  TO  80 

SETU 

22  ! 

i ; 

IFCNTF  .GT.  0)  GO  TO  20 

SETU 

23  . 

SETU 

24 

1 1 

c 

IT  IS  A FU 

SETU 

25 

NTF  * -NTF 

SETU 

26  ! 

IF(FUCLA(NTF.l)  .NE.  10.)  GO  TO  10 

SETU 

27  faj 

SETU 

28 

: i 

* 1 

Figure  1(9).  Progran  Listina:  Support 

Prograns 

1 

rr 


. I 
1 : 


68 


BLINKING  FU 

SETU 

29 

J = 13 

SETU 

30 

GO  TO  70 

SETU 

31 

SETU 

32 

NON  — BLINKING  FU 

SETU 

33 

10 

J = 18 

SETU 

34 

GO  TO  70 

SETU 

35 

SETU 

36 

IT  IS  fl  TRACK 

SETU 

37 

so 

IR  = NTF  * 3 

SETU 

38 

LDIS  = SS(IR)  .GT.  60 

SETU 

33 

LOLD  = TRCLACNTF.l)  .EQ.  TRCLA(NTF.3) 

SETU 

40 

ITY  = TRCLACNTF, 1) 

SETU 

41 

IFCITY  .EQ.  0)  GO  TO  80 

SETU 

42 

GO  TO  (30.40,50.60).  ITY 

SETU 

43 

SETU 

44 

IT  IS  RAH  UIDEO 

SETU 

45 

30 

J = S 

SETU 

46 

IF(AUTOI)  J = 1 

SETU 

47 

GO  TO  70 

SETU 

48 

SETU 

49 

IT  IS  UNKNOHN 

SETU 

50 

40 

J = 3 

SETU 

51 

IF(LOLD)  J = 4 

SETU 

52 

IFCLOLD  .AND.  LDIS)  J = S 

SETU 

53 

GO  TO  70 

SETU 

54 

SETU 

55 

IT  IS  FRIENDLY 

SETU 

56 

50 

J = 7 

SETU 

57 

IF(LOLD)  J = 8 

SETU 

58 

GO  TO  70 

SETU 

59 

SETU 

60 

IT  IS  HOSTILE 

SETU 

61 

60 

J = S 

SETU 

62 

IFCLOLD)  J = 11 

SETU 

63 

IFCLOLD  .AND.  LDIS)  J = IS 

SETU 

64 

SETU 

65 

70 

TRSTA(I,3)  » (TUAL  + .1)  * (UALUECJ)  + STICJ)) 

SETU 

66 

SETU 

67 

80 

CONTINUE 

SETU 

68 

RETURN 

SETU 

63 

END 

SETU 

70 

SUBRQUriNt  state; 

REAL  TRCLA(33.5).FUCLA(11.3) 

COMMON  /UCOMl/  TRCLAiFUCLA 

REALTRSTA(44,3).TRR0U(155.4),INR0U(33,2).TRTYP(33,3) 
COMMON  /UC0M2^  TRSTA, TRROU. INRQU, TRTYP 

INTEGER  PAIR ( 33 ) , PTR ( 33 ) . PTT ( 33 ) , RSTAT ( 33 ) 

COMMON  /UCOMO/  PTR. PTT, RSTAT, PAIR 

INTEGER  NFU.NTRFU.NTRK 
COMMON  /UC0N7/'  NFU.NTRFU.NTRK 


COMMON  /'COMIB/'  AAERR.DTMAX.DTMIN.DTSAU,  IITES.LLERR.RRERR.TTLAS. 
» TTSAU, DTSUG, DTFUL, DTNOW, ISEES, RESLS, DTACC, LLSAU. 
» LSAUE 

COMMON  /COMl?/'  SS(100),SSL(100),DD(100),DDL(100),LLSUR(100,2) 


FOR  EACH  TRACK 
K = ((3  * NTRK)  - 2) 

J = 0 

DO  10  I = 1,K,3 
J = J + 1 

X - POS  Y - POS  DISTANCE  FORM  SITE 

SS(I)  = SSL(I)  + TRR0U(PTR(J),2)  * DTNOW 

SS(I  + 1)  = SSLCI  + 1)  + TRR0UCPTR(J),3)  * DTNOW 

SS(I  + 2)  = ((SS(I)  - FUCLA(PAIR(J).4))  **2  + 

• (SS(I  + 1)  - FUCLA(PAIR(J),5))  **2)  **.5 

CONTINUE 
RETURN 
END 


FUNCTION  STORPCB.C.NT) 

CHECK  IF  TASK  CHAR  ARE  USED 
IF(NT  .NE.  0)  GO  TO  10 
BB  = B 
BC  = C 
GO  TO  20 

10  CONTINUE 

CALL  GETTCCNT.l.AB) 

CALL  GETTC(N1,2,AC) 

BB  - B • AB 
BC  = C * AC 

20  STORP  = 1.  - (BB  + BC) 

CALL  PUTSA(2,BB) 

CALL  PUTSA(3,BC) 

RETURN 

END 


SIATt 
UCOMl 
UCOMl 
UCOMl 
UC0M2 
UC0M2 
UC0M2 
UC0M3 
UC0M3 
UC0M3 
UC0M7 
UC0h7 
UC0M7 
UC0M7 
UC0M7 
STATE 
COM  16 
COM  IS 
C0M16 
COM  17 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 
STATE 


STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 

STORP 
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REAL  TRCLA(33.5).FUCLA(11.9) 

COMMON  /UCOMl/  TRCLA.FUCLA 

REAL  TRSTA ( 44, 3 ) . TRROU (155,4), INROU( 33, 2 ) , TRTYP ( 33, 3 ) 
COMMON  /UC0M2/  TRSTA, TRROU, INROU, TRTYP 


INTEGER  PAIR ( 33 ) , PTR ( 33 ) , PTT ( 33 ) , RSTAT ( 33 ) 
COMMON  /UCOMO/  PTR, PTT, RSTAT, PAIR 

LOGICAL  AUTO I , AUTOR , AUTOE , T I GH 
COMMON  /UC0M4/  AUTOI. AUTOR, AUTOE, TICH 

REAL  UALUE(20),STI(20),STOT 
COMMON  /UC0M5/  UALUE,STI,STOT 

INTEGER  TYHOOK,SEQT,PSEQ 
COMMON  /UCOMS/  TYHOOK,SEQT,PSEQ 

INTEGER  NFU,NTRFU,NTRK 
COMMON  /UCOM//  NFU, NTRFU, NTRK 


REAL  CY(33),CY(33) 

INTEGER  IPTR(33).IPTT(33) 

COMMON  /UC0N8/  CX, CY, IPTR, IPTT, IPC 

LOGICAL  TRCH 

REAL  TRMOD  ( 33 ) , TOTRT  ( 33 ) , TMARK , TMARE 
INTEGER  NOLDTY,LPAGE 

COMMON  /'UCOMS/  TRCH, TRMOD, TOTRT. TMARK, TMARE, LPAGE,NOLDTY 

1000  FORMAT!  lHl/'/'^49X,31HS  AINT  SIMULATIO  N/'49X, 

* 9(lH-),3X,19(lH-)//59X,llH0  F T H E/59X,3H ,3X. 

* 5H //SSX, 17HA  N ^ T S Q - 7 3/Sex, 17( IH-)// 

* 32X,3SHG  UIDED  MISSILE  AIR, 

* 29H  DEFENSE  SYSTEM/ 

* 32X, 11(1H-),3X,13(1H-),3X.5H , 3X, 13( 1H-). 3X, 11 ( IH-)// 

*) 


•i 


1001  FORMAT  ( ///27X , 77  ( IH- ) /27X , 77  ( IH- ) //49X . 

* 31H0  PERATIONAL  DAT  A/49X.21(1H-),3X,7(1H-) 

* //49X,34HINITIAL  OPERATIONAL  MODES/POLICIES// 

* 49X. 20HAUT0/NANUAL  INITIATE, 6X.2A4/ 

* 49X, 23HAUT0/MANUAL  INTERROGATE. 3X, 2A4/ 

* 49X,22HAUT0/MANUAL  ENGAGEMENT, 4X, 2A4/ 

* 49X , 2 ‘ I GHT/FREE  ENGAGEMENT , 5X , 2A4/ 

* 49X, 14Hh00KING  POLICY. 12X, 2 A4/ 

* 78X,2A4) 

1002  F0RMAT(//27X, 77( lH-)/27X, 77( IH-)// 

* 32X,30HA  SSOCIATED  FIRE. 

* 33HUNIT  INFORMATION/ 

* 32X. 19( 1H-) , 3X, 7( 1H-) , 3X, 7( 1H-) , 3X, 21 ( IH-)/ 

* S4X,33HL  0 C A T I 0 N QUANTITY  EFFECU 

* 48X,39HN0  X-CORD  Y-CORD  WEAPONS  RATIO/) 

1003  FORMAT(48X,I2,F10.2.F9.2,I7,F10.3) 

1004  FORMAT! 1H1////49X,33HT  RACK  INFORMATION/ 

* 49X,9(1H-).3X,21(1H-)/ 

* 50X,32HL  OCATION  UELOCITY/ 

* 23X,2HN0.SX,4HTINE.7X,2HID.eX, 

* 31HX-C0RD  Y-CORD  X-UEL  Y-UEL,5X, 

* 20HS  PEED  HEADING/ 

* S8X,29H!MILES  / SEC)  (MILES  / HOUR)/) 
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1005  rORMAT(23X. 12. FI 1 . 2. 3X. 2A4, 2F9. 2, 2F8. 3, 5X.  FB. 3. FX.  13) 

1105  F0Rt1AT(25X.F11.2.3X.2A4.2F9.2.2F8.3.5X,F8.3.7X.I3) 

1006  FORMATCIH  ) 

1007  FORMATdHl//') 

1008  F0RMAT(1H1/////40X,26HM  ISSIOM  TRACE. 

* 23H  INFORMATIO  N/40X. 13(1H-).3X.9(1H-).3X.21(1H-) 

* //41X.41HFIELDS  SYMBOL  USE/MEAMIM  Z// 

* 43X.3H1.2.15X.27HTIME  IN  MINUTES  AND  SECONDS/'/ 

* 44X.1H3.16X.25HCURRENT  OPERATOR  JOB  AREA) 

1009  F0RMAT(53X.3HSER.8X. 12HSEARCH  SCOPE/ 

* S3X.3HIDL.8X.9HIDLE  TIME/ 

* 53X.3H0BR.8X.21H0BSERUE/PR0CESS  UIDEO/ 

* 53X.3H0BU.8X.29H0BSERUE/PR0CESS  UNKNOWN  TRACK/ 

* 53X.3HOBF.8X.30HOBSERUE/PROCESS  FRIENDLY  TRACK/ 

* 53X.3H0BH.8X.29H0BSERUE/PR0CESS  HOSTILE  TRACK/ 

* 53X.3HASS.8X.25HASSIGN  FIRE  UNIT  TO  TRACK/ 

* S3X.3H0FU.8X.25H0BSERUE/PR0CESS  FIRE  UNIT/ 

* 5GX.1H*.7X.23HH00KING  A SITE  OR  TRACK) 

1010  F0RNAT(/44X.1H4.1GX. 17HSAINT  TASK  NUMBER// 

* 44X.lH5.8X.2HTR.eX.35HTRACK  NUMBER  ASSOCIATED  WITH  ACTION/ 

* 44X.9X.2HFU.6X.35HFIRE  UNIT  NO  ASSOCIATED  WITH  ACTION// 

* 44X. 1H6. 16X. 15HSTATUS  OF  TRACK/ 

* 54X. 1HR.9X.5HUIDE0/ 

* 54X. 1HU.9X.13HUNKN0WN  TRACK) 

1011  F0RMAT(54X.1HF.9X.14HFRIENDLY  TRACK/ 

* 54X.1HH.9X.13HH0ST1LE  TRACK/ 

* 54X. 1HS.9X.14HSPECIAL  SYMBOL// 

* 61X. 19HSTATUS  OF  FIRE  UNIT/ 

* 54X. IHU. 9X. GriUNUSED/ 

* 54X.1HA.9X.8HACCESSED/ 

* S4X . 1 HX . 9X . 7HENG AGED ) 

1012  F0RMAT(54X. 1HF.9X.GHFIRING/ 

* 54X. IHE. 9X. 9HEFFECTIUE/ 

* 54X. IHI . 9X. 1 IHINEFFECTIUE/ 

* 54X. 1H2.3X.15HN0T  OPERATIONAL/ 

* 54X . 1 HD . 9X . 9HD I SENGAGE/ 

* 54X. 1HC.9X. lOHCEASE  FIRE/ 

* 54X. 1H*.9X.24HBLINKING  (OUT  OF  ACTION)) 

1013  F0RMAT(/44X. 1H7.1GX.1GHTRACK  - DISTANCE/ 

* G1X.30HFIRE  UNIT  - PRIMARY  ASSIGNMENT// 

* 44X.1H8.1GX.2GHTRACK  - ATTACHED  FIRE  UNIT/ 

* G1X.32HFIRE  UNIT  - SECONDARY  ASSIGNMENT// 

* 44X. 1H9.7X.2GH(SEE  G)  ALL  TRACKS  STATUS// 

* 43X.2H10.7X.30H(SEE  G)  ALL  FIRE  UNITS  STATUS) 

REAL  DAT (5) 

INTEGER  IDC(8).ID(2).ALD(12).ALP(2G).IT(G) 

DATA  IDC/4H  UID.4HE0  . 4HUNKN. 4H0WN  . 4HFRIE. 4HNDLY. 

* 4HH0ST.4HILE  / 

DATA  ALP/4HAUT0.4H  .4HMANU.4HAL  .4HTIGH.4HT  .4HFREE.4H  . 

* 4HSEQU.4HENCE.4HP0SI.4HTI0N.4HTAB  , 4H  .4HFU  .4H  . 

* 4HTR  .4H  .4HHT  .4H  .4HTR  -.4H  FU  .4HHT  -.4H  FU  , 

* 4H  . 4H  / 

IT(1)  = 3 
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IF(AUTOI)  IT(1)  = 1 

UECHO 

IT(2)  = 3 

UECHO 

IF(AUTOR)  IT(2)  = 1 

UECHO 

IT(3)  = 3 

UECHO 

IF(AUTOE)  IT(3)  » 1 

UECHO 

IT(4)  = 7 

UECHO 

IF(TIGH)  IT(4)  a 5 

UECHO 

IT(5)  = 13 

UECHO 

IF(TYHOOK  .EQ.  0)  IT(5) 

a 9 

UECHO 

IFCTYHOOK  .EQ.  1)  iT(5) 

a 11 

UECHO 

IT(G)  = 17 

UECHO 

IF(SEOT  .EQ.  0)  IT(G)  * 

21 

UECHO 

IFCSEQT  .EQ.  2)  IT(G)  * 

15 

UECHO 

IF(SEQT  .EQ.  3)  IT(G)  » 

23 

UECHO 

IF(SEOT  .EQ.  4)  IT(S)  « 

19 

UECHO 

IF(TYHOOK  .NE.  0)  IT(G) 

a 25 

UECHO 

Figure  1(12).  Program  Listing:  Support  Programs 
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uecHo 

DO  5 I = 1.6  UECHO 

J = I + I - 1 UECHO 

ALO(J)  = ftLPCITCI))  UECHO 

flLOCJ  + 1)  = ALPCITCI)  + 1)  UECHO 

5 CONTINUE  UECHO 

WRITE(6, 1000)  UECHO 

WRITE(6.1001)  ftLO  UECHO 

WRITE(6, 1003)  UECHO 

DO  10  I = l.NFU  UECHO 

lA  = FUCLACI.S)  UECHO 

10  WRITE(S.1003)  I.FUCLA(I.4),FUCLA(I.5).IA.FUCLA(I.9)  UECHO 

JLEG  = 1 UECHO 

WRITE(6.1004)  UECHO 

LPAGE  = 5 UECHO 

UECHO 

DO  31  I = l.NTRK  UECHO 

IF  (JLEG  .NE.  1)  GO  TO  20  UECHO 

WRITE(6. 1006)  UECHO 

IF(LPAGE  .GT.  50)  LPAGE  = 0 UECHO 

IFCLPAGE  .EQ.O)  WRITE(6. 1007)  UECHO 

ITPR  = PTR(I)  UECHO 

ITPT  = PTT(I)  UECHO 

T = TRROU(ITPR.l)  UECHO 

ID(1)  = IDC(l)  UECHO 

ID(2)  = IDC(2)  UECHO 

DAT(l)  = TRR0U(ITPR,2)  UECHO 

DAT(2)  = TRR0U(ITPR,3)  UECHO 

ITPR  = TRR0U(ITPR.4)  UECHO 

DAT(3)  = TRR0U(ITPR.2)  UECHO 

DAT(4)  = TRR0U(ITPR,3)  UECHO 

DAT(5)  = ((DAT(3)**2  + DAT(4)**2)**.5)  * 3600.  UECHO 

lA  = AHEAD(DAT(3).DAT(4))  UECHO 

JLEG  = 2 UECHO 

ST  = TRROU(ITPR.l)  UECHO 

ITT  = 0 UECHO 

IFCLPAGE.EQ.  0)  LPAGE  = 2 UECHO 

GO  TO  29  UECHO 

20  CONTINUE  UECHO 

IFCITT  .EQ.  1)  GO  TO  23  UECHO 

IF(ST  .LE.  TRTVP(ITPT.l))  GO  TO  22  UECHO 

21  TL  = T UECHO 

T = TRTVPdTPT.l)  UECHO 

IF(T  .GT.  4000.)  GO  TO  31  UECHO 

IK  = (TRTVP(ITPT,2)  * 2.)  - 1.  UECHO 

ID(1)  = IDC(IK)  UECHO 

ID(2)  = IDCCIK  + 1)  UECHO 

CALL  L0C(TL,T,DAT(1),DAT(2),DAT(3).DAT(4))  UECHO 

ITPT  = TRTYP(ITPT.3)  UECHO 

ST  = TRTYPCITPT.l)  UECHO 

ITT  = 1 UECHO 

GO  TO  30  UECHO 

22  CONTINUE  UECHO 

TL  = T UECHO 

T = TRROUCITPR.l)  UECHO 

IF(T  .GT.  4000.)  GO  TO  31  UECHO 

ITPR  = TRR0U(ITPR,4)  UECHO 

CALL  L0C(TL.T,DAT(1),DAT(2).DAT(3).DAT(4))  ERR2 

DAT(3)  * TRR0U(ITPR,2)  UECHO 

DAT(4)  a TRR0U(ITPR,3)  UECHO 

DAT(5)  » ((DAT(3)**2  + DAT(4)**2)**.S)  * 3600.  UECHO 

lA  = AHEAD(DAT(3).DAT(4))  UECHO 

ST  = TRROUCITPR.l)  UECHO 

ITT  a 0 UECHO 

GO  TO  30  UECHO 

UECHO 


Figure  1(13).  Program  Listing:  Support  Programs 
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CONTINUE 

ir(ST  .LT. 
GO  TO  22 


TRROUdTPR.D)  GO  TO  21 


UIRITECG.  1005)1.  T,  ID.  DAT,  lA 
LPAGE  = LPAGE  + 1 
GO  TO  20 

URITECS.llOS)  T.  ID.DAT. lA 
LPAGE  = LPAGE  + 1 
GO  TO  20 
JLEG  = 1 
LPAGE  = 0 
WRITECB, 1008) 

WRITECB. 1009) 

WRITECB. 1010) 

WRITECB. 1011) 

WRITECB. 1012) 

WRITECB. 1013) 

RETURN 

END 
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SUBROUTINE  UIN 

REAL  TRCLAC33.5).FUCLAC11.9) 

COMMON  /UCOMl/  TRCLA.FUCLA 

REAL  TRSTAC44.3).TRR0UC155.4).I NROU C 33 . 2 ) . TRT YP C 33 . 3 ) 
COMMON  /UC0N2/  TRSTA. TRROU. INROU. TRTYP 

INTEGER  PAIR C 33 ) . PTR C 33 ) . PTT C 33 ) . RSTAT C 33 ) 

COMMON  /'UC0M3/  PTR.  PTT.  RSTAT.  PAIR 

LOGICAL  AUTO I . AUTOR . AUTOE . T I GH 
COMMON  /UC0M4/  AUTOI. AUTOR. AUTOE. TIGH 

REAL  UALUEC20).STIC20).STOT 
COMMON  /UCOMS/  UALUE.STI.STOT 

INTEGER  TYHOOK . SECT . PSEQ 
COMMON  /UCOMB/  TYHOOK. SEQT. PSEQ 

INTEGER  NFU.NTRFU.NTRK 
COMMON  /UC0M7/  NFU.NTRFU.NTRK 


REAL  CX(33).CY(33) 

INTEGER  IPTR(33).IPTT(33) 

COMMON  /UC0M8/  CX. CY. IPTR. IPTT. IPC 

LOGICAL  TRCH 

REAL  TRMOD  ( 33 ) . TOTRT  ( 33  ) . TMARK . TM ARE 
INTEGER  NOLDTY. LPAGE 

COMMON  ^UCOMS/  TRCH. TRMOD. TOTRT. TMARK. TMARE. LPAGE. NOLDTY 
REAL  TFUN(IO) 

COMMON  /UCOMO/'  TFUN 

DATA  IFI/0/' 
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Figure  1(14).  Program  Listing:  Support  Programs 


w 


PSEO  =0  UINPT 

IFdFI  .GT.  0)  GO  TO  GO  UINPT 

IFl  = 1 UINPT 

READCS.IOOO)  AUTOI.AUTOR.AUTOE.TIGH  UINPT 

READ(5, 10011  TYHOOK.SEQT  UINPT 

READ(5.1001)  NFUiNTRK  UINPT 

NTRFU  = NFU  + NTRK  UINPT 

UINPT 

DO  10  I = l.NFU  UINPT 

REftDCS. 1002)  FUCLA(I.4),FUCLA(I.5).FUCLA(I.8).FUCLft(I.9)  UINPT 

TFUN(I)  = FUCLAd.S)  UINPT 

FUCLAd.l)  = 1.  UINPT 

10  TRSTAd.l)  = -I  UINPT 

UINPT 

K = 0 UINPT 

I = 0 UINPT 

30  K = K + I UINPT 

READ(5.1003)  J.TRROUCK, 1).TRR0U(K.2).TRR0U(K.3)  UINPT 

TRR0U(K.4)  = K + 1 UINPT 

IF(J  .EQ.  I)  GO  TO  30  UINPT 

IF{J  .GT.  NTRK)  GO  TO  40  UINPT 

I = J UINPT 

IPTRd)  = K UINPT 

CXCI)  = TRR0U(K.2)  UINPT 

CYd)  = TRR0U(K,3)  UINPT 

GO  TO  30  UINPT 

UINPT 

40  K = 0 UINPT 

1*0  UINPT 

50  K = K + 1 UINPT 

READ(5,1003)  J. TRTYPCK, 1) , TRTYPCK,2)  UINPT 

TRTYP(K,3)  = K + 1 UINPT 

IF(J  .EQ.I)  GO  TO  SO  UINPT 

IF(J  .GT.  NTRK)  GO  TO  BO  UINPT 

I = J UINPT 

IPTTCI)  = K UINPT 

GO  TO  50  UINPT 

UINPT 

GO  CONTINUE  UINPT 

CALL  RSTART  UINPT 

CALL  UECHO  UINPT 

RETURN  UINPT 

UINPT 

1000  F0RMAT(4L1)  UINPT 

1001  FORMAT (215)  UINPT 

1002  F0RMAT(4F10.0)  UINPT 

1003  FORnATd2.3F10.0)  UINPT 

UINPT 

END  UINPT 

SUBROUTINE  UINPT  UINPT 

RETURN  UINPT 

END  UINPT 
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FUNCTION  UPTR(TRN) 

INTEGER  TRN 
LQGICftL  UPTR 

REAL  TRCLA(33.S).FUCLA(11.9) 
COMMON  /UCOMl/  TRCLA.FUCLA 


C CHECK  IF  OBSERUED  .EQ.  REAL 

UPTR  = .FALSE, 

IF(TRCLA(TRN.l)  .NE.  TRCLACTRN, 2) ) GO  TO  10 

C THEY  ARE  THE  SAME 

UPTR  = .TRUE. 

RETURN 

C THEY  ARE  DIFFERENT 

10  TRCLACTRN, 1)  = TRCLA(TRN,2) 

CALL  CONTCTRN) 

RETURN 

END 
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BLOCK 

BLOCK 

1 

BLOCK 

2 

REAL 

TRCLA(33.5),FUCLA(11,S) 

UCOMl 

1 

COMMON  /UCOMl/  TRCLA.FUCLA 

UCOMl 

2 

UCOMl 

3 

REAL 

TRSTA(44,3).TRR0U(155,4),I NROU (33,2), TRTYP (33,3) 

UC0M2 

1 

COMMON  /UC0M2/  TRSTA. TRROU. INROU. TRTYP 

UC0M2 

2 

UC0M2 

3 

INTEGERPAIR(33).PTR(33).PTT(33)f  RSTAT ( 33 ) 

UC0M3 

1 

COMMON  /UC0M3/  PTR. PIT. RSTAT, PAIR 

UC0M3 

2 

UC0M3 

3 

LOGICAL  AUTOI.AUTOR.AUTOE.TIGH 

UC0M4 

1 

COMMON  /UC0M4/  AUTOI. AUTOR.AUTOE.TIGH 

UC0M4 

2 

UC0M4 

3 

REAL 

UALUE(20),STI(20).ST0T 

UC0M5 

1 

COMMON  /UC0M5/  UALUE.STI.STOT 

UC0M5 

2 

UC0M5 

3 

INTEGER  TYHOOK.SEQT.PSEQ 

UCOMG 

1 

COMMON  /UCOMG/  TYHOOK.SEQT.PSEQ 

UCOMG 

2 

UCOMG 

3 

INTEGER  NFU.NTRFU.NTRK 

UC0M7 

1 

COMMON  /UCOMF/  NFU.NTRFU.NTRK 

UC0M7 

2 

UC0M7 

3 

UC0M7 

4 

UC0M7 

5 

REAL 

CX(33),CY(33) 

UC0M8 

1 

INTEGER  IPTR(33),IPTT(33) 

UC0M8 

2 

COMMON  /UCOMS/  CX, CY, IPTR, IPTT, IPC 

UC0M8 

3 

UC0M8 

4 

LOGICAL  TRCH 

UC0M9 

1 

REAL 

TRMOD ( 33 ) , TOTRT ( 33 ) , TMARK , TMARE 

UC0M9 

2 

INTEGER  NOLDTY.LPAGE 

UCOMS 

3 

COMMON  /UCOMS/  TRCH.TRMOD.TOTRT.TMARK.TMARE.LPAGE.NOLDTY 

UC0M3 

4 

BLOCK 

4 

DATA 

UALUE/1.,G.,4.,2.,7.,S.,4.,I.,S.,7.,3., 

BLOCK 

S 

• 

8..S.,7..5.,S.,1.,3.,G.,0./' 

BLOCK 

G 

BLOCK 

7 

DATA  STI/2.,2.,G*3.,4*4.,B.,5., 

BLOCK 

8 

« 

5«y6a»l«»3«»9at0«/ 

BLOCK 

9 

BLOCK 

10 

DATA 

TRCLA/1G5*0./ 

BLOCK 

11 

BLOCK 

12 

DATA 

FUCLA/93*0./ 

BLOCK 

13 

BLOCK 

14 

DATA 

TRSTA/ 132*0./ 

BLOCK 

15 

BLOCK 

IG 

DATA 

PAIR/33*! 1/ 

BLOCK 

17 

BLOCK 

18 

DATA 

RSTAT/33*4/ 

BLOCK 

19 

BLOCK 

20 

DATA 

TYHOOK. SEQT, PSEQ/2, 0,0/ 

BLOCK 

21 

BLOCK 

22 

DATA 

AUTO I , AUTOR . AUTOE , T I GH/4* . TRUE . / 

BLOCK 

23 

BLOCK 

24 

END 

BLOCK 

25 

V 


Figure  1(17).  Program  Listing:  Support  Programs 
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User  Function  1 

User  function  1 is  called  at  the  completion  of  task  3. 

It  is  used  to  assign  the  probabilities  used  in  branching  from 
task  3.  If  the  video  data  has  been  observed  at  a previous  time, 
one  set  of  probabilities  is  figured.  A second  set  of  probabili- 
ties is  figured  if  this  is  the  first  time  this  data  has  been  i 

observed.  This  is  determined  by  a call  to  function  NEWTR. 

The  function  makes  use  of  the  function  BUZY  to  vary  these 
probabilities.  It  also  uses  function  STORP  to  store  the 
set  of  three  probabilities.  One  value  is  assigned  to  the 
function  value,  while  the  other  two  are  stored  in  system 
attributes  2 and  3. 

User  Function  2 

User  function  2 is  called  at  the  completion  of  task  5 
to  assign  the  branching  probabilities  to  the  system  attributes 
1,  2,  and  3.  There  are  two  sets  of  probabilities  that  may  be 
assigned.  If  the  system  is  operating  in  the  auto-initialization 
mode,  one  set  of  probabilities  is  figured.  A second  set  of  ; 

probabilities  is  assigned  if  the  system  is  in  the  manual  mode. 

The  probabilities  are  varied  through  a call  to  function  BUZY  J 

and  stored  in  system  attributes  2 and  3,  and  the  function  ; } 

value,  through  a call  to  function  STORP.  i' 

User  Function  3 ; ; 

User  function  3 is  called  at  the  release  of  task  6.  It 
calculates  the  performance  time  of  this  task.  The  value 
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returned  is  uniformly  distributed  and  has  a maximum  value  of 
two  radar  sweeps. 

User  Function  4 

User  function  4 is  called  at  the  completion  of  task  8. 

It  is  used  to  update  the  status  of  the  track  on  the  scope. 

It  calls  function  UPTR  which  checks  if  the  observed  status 
is  equal  to  the  actual  status.  If  there  is  a difference,  the 
status  is  updated.  In  addition,  the  value  of  TRCH  is  set  to 
true  so  that  the  proper  statistics  can  be  collected  when  the 
operator  returns  to  task  1. 

User  Function  5 

User  function  5 is  called  at  the  completion  of  task  9. 

It  is  used  to  assign  the  branching  probabilities  to  system 
attributes  1 and  2.  One  set  of  probabilities  is  used  if  the 
system  is  not  in  automatic  identification  mode.  These  proba- 
bilities are  varied  by  the  function  BUZY  and  by  the  function 
RANGE;  combining  these  functions  gives  probabilities  for 
branching  to  task  10  that  range  from  small,  if  the  system  is 
very  busy  and  the  range  is  greater  than  60  miles,  to  a value 
near  1.0,  if  the  system  is  not  busy  and  the  range  is  less  than 
40  miles.  A second  set  of  probabilities  is  used  if  the  system 
is  in  the  automatic  identification  mode.  Here  the  range  of 
values  is  from  extremely  small,  if  the  system  is  very  busy  and 
the  range  is  greater  than  60  miles,  to  a moderate  value,  if 
the  system  is  not  busy  and  the  range  is  less  than  40  m.iles. 
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User  Function  6 


User  function  6 is  called  at  the  completion  of  task  12 
to  assign  the  branching  probabilities  to  system  attributes 
1,  2,  and  3.  The  first  set  of  probabilities  reflects  no  identi- 
fication change,  that -is,  the  track  is  still  an  unknown  target. 
This  is  determined  by  a call  to  function  UPTR.  This  first 
set  of  probabilitie's  will  cause  the  operator  to  proceed  to 
either  task  14  or  -task  1.  There  is  a 0 probability  of 
proceeding  to  task.  13.  The  probabilities  are  varied  through 
a call  to  function 'bUZY  and  a call  to  function  RANGF . The 
current  engagement  mode  is  also  taken  into  account  in  calcu- 
lating the  probabilities.  A second  set  of  probabilities  is 
used  when  a change  has  been  made  in  the  classification  of  the 
track.  In  this  case,  the  operator  will  proceed  to  task  13 
100  percent  of  the  time.  In  addition,  a call  to  subroutine  CONT 
is  made  to  insure  that  the  operator  will  continue  processing 
this  track  under  its  new  classification.  The  variable  TRCH 
is  set  to  TRUE  so  that  statistics  can  be  collected  upon 
returning  to  task  1 . 

User  Function  7 

User  function  7 is  called  at  the  completion  of  task  14  to 
assign  the  branching  probabilities  to  system  attributes  1 and  2. 
There  is  only  one  set  of  probabilities  that  may  be  assigned. 

They  are  varied  by  a call  to  BUZY  and  a factor  that  is  dependent 
on  the  current  engagement  mode  status  of  the  system.  In 
addition,  the  tight/free  engagement  policy  is  checked. 


System  attribute  7 is  set  to  0 if  that  policy  is  free  and  it 
is  set  to  1 if  that  policy  is  tight. 

User  Function  8 

User  function  8 is  called  at  the  completion  of  task  33  to 
assign  the  branching  probabilities  to  system  attributes  1 and  2. 
This  function  checks  all  fire  units  to  find  one  that  has  an 
effective  status  showing  on  the  DDG.  If  no  effective  status 
is  found,  the  probability  of  returning  to  task  1 is  very  high. 
This  is  set  by  a call  to  STORP.  If  a fire  unit  is  found  with 
an  effective  status,  the  value  that  is  assigned  to  system 
attribute  2 is  very  small.  Therefore,  the  chance  of  returning 
to  task  1 is  very  small  and  the  operator  is  more  likely  to 
proceed  to  tasks  35  and  34  to  clear  the  effective  status  of 
the  fire  unit. 

User  Function  9 

User  function  9 is  called  at  the  completion  of  task  34. 

It  has  two  functions.  First,  it  clears  the  effective  status 
from  the  fire  unit  status  table.  Second,  it  stores  the  fire 
unit  number  in  information  attribute  2.  This  is  used  by 
the  fire  unit  section  to  clear  effective  status  and  possibly 
initiate  a secondary  engagement. 

User  Function  10 

User  function  10  is  called  at  the  completion  of  task  18 
to  assign  the  branching  probabilities  to  system  attributes  1, 

2,  and  3.  These  values  are  set  by  a call  to  function  STORP. 
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User  Function  11 

User  function  11  is  called  at  the  completion  of  task  21 
to  assign  branching  probabilities  to  system  attributes  1 and  2. 
The  function  checks  to  see  if  the  track  was  last  classified 
as  a hostile  track.  If  it  was,  the  probability  is  high  that 
the  operator  will  proceed  with  tasks  22  and  23  to  determine  if 
the  track  was  assigned  to  a fire  unit.  If  the  track  was  not 
previously  a hostile  track,  the  operator  will  return  to  task  1 
by  assigning  the  value  of  1 to  system  attribute  1 . In  either 
case,  the  last  observed  status  is  updated  to  the  current  status. 


User  Function  12 

User  function  12  is  called  at  the  completion  of  task  22 
to  assign  branching  probabilities  to  system  attributes  1 and  2. 
This  function  checks  to  see  if  a fire  unit  has  been  assigned  to 
this  friendly  track.  If  it  has,  a high  probability  is  set  in 
system  attribute  2 so  that  the  operator  will  proceed  and  clear 
the  engagement.  If  no  fire  unit  has  been  assigned,  a low 
probability  is  set  in  system  attribute  2 so  that  the  operator 
will  return  to  task  1. 


User  Function  13 

User  function  13  is  called  at  the  completion  of  task  25 
to  assign  branching  probabilities  to  system  attributes  1,  2, 
and  3.  This  function  updates  the  last  observed  status  of  this 
track.  It  then  checks  to  see  if  the  track  is  currently 
assigned  to  a fire  unit  or  if  the  track  is  currently  under  a 
hold  fire  order.  The  hold  fire  order  would  have  originated  if 
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the  track  was  engaged  as  an  unknown  while  the  system  was  in  the 
tight  engagement  mode.  Since  the  track  is  now  hostile,  the 
operator  should  clear  this  statuo. 

There  are  three  sets  of  probabilities  that  may  be  assigned. 
The  first  would  reflect  the  fact  that  the  target  is  not  engaged. 
The  probability  is  varied  by  a call  to  function  RANGF  and  by  multipli- 
cation by  an  automatic-engaged  factor.  The  probability  that 
the  operator  will  proceed  with  an  assignment  may  vary  from  0 
if  the  target  is  outside  50  miles  to  relative  certainty  if  the 
target  is  within  50  miles.  The  second  set  of  probabilities  is 
assigned  if  the  system  determines  that  the  track  has  received 
a hold  fire  order.  In  this  case,  the  operator  will  be  sent 
to  task  26  with  a very  high  probability.  This  will  insure 
that  the  operator  clears  the  hold  fire  status.  The  third 
set  of  probabilities  is  when  the  track  is  already  engaged. 

In  this  case,  the  probability  of  1.0  is  given  to  system 
attribute  1 insuring  that  the  operator  will  return  to  task  1. 

User  Function  14 

User  function  14  is  called  at  the  completion  of  task  27. 
This  function  is  used  to  store  the  fire  unit  number  in  infor- 
mation attribute  2.  This  will  then  be  used  by  the  fire  unit 
section  to  process  the  clear  hold  fire  message  that  is 
sent  from  this  task. 

User  Function  15 

User  function  15  is  called  at  the  completion  of  task  28  to 
assign  branching  probabilities  to  system  attributes  1,  2,  and  3. 
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This  function  first  checks  to  see  if  the  fire  unit  is  operational. 
If  it  is,  it  will  direct  the  operator  back  to  task  1.  Second, 
it  checks  to  see  if  the  fire  unit  is  blinking.  If  it  is,  it 
will  direct  the  operator  to  task  35  and  then  to  task  29  to 
reassign  the  tracks  that  are  currently  engaged  by  this  fire 
unit.  In  addition,  it  will  change  the  condition  from  blinking 
to  not  operational.  If  the  site  is  not  blinking,  it  will 
assign  probabilities  so  that  there  is  a large  possibility  of 
proceeding  to  task  33  to  observe  the  DDG  and  clear  any 
effective  status. 

User  Function  16 

User  function  16  is  called  at  the  completion  of  task  29. 

It  is  used  to  assign  values  to  system  attribute  1,  which  is 
used  for  the  conditional  branching  from  this  task.  The  value 
of  system  attribute  1 will  be  0 if  there  are  no  tracks  assigned 
to  this  fire  unit,  1 if  there  is  a primary  site  only  assigned 
to  this  fire  unit,  and  2 if  there  are  both  primary  and  secondary 
tracks  assigned  to  this  fire  unit. 


User  Function  17 

User  function  17  is  called  at  the  completion  of  task  30. 
This  function  clears  the  fire  unit  from  the  fire  unit  status 
array. 
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buted  so  that  the  maximum  value  is  the  time  of  2 radar  sweeps. 
In  addition,  the  track  is  flagged  so  that  the  operator  will 
continue  to  process  the  unassigned  track  after  completing  the 
current  task  of  dropping  the  fire  unit.  This  is  to  insure 
that  the  track  will  be  reengaged  if  necessary.  The  function 
also  assigns  the  track  and  fire  unit  numbers  to  information 
attributes  1 and  2 so  that  the  disengagement  message  can  be 
processed  by  the  fire  unit  section. 
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User  Function  19 

User  function  19  is  called  at  the  completion  of  task  32. 

It  is  used  to  flag  the  primary  track  for  continued  processing 
by  the  operator.  It  also  assigns  the  track  and  fire  unit  numbers 
to  information  attributes  1 and  2 so  that  the  fire  unit  section 
can  process  the  cease  engagement  message  correctly. 


User  Function  20 

User  function  20  is  called  at  the  completion  of  task  35 
to  assign  a value  to  system  attribute  1.  This  value  is  then 
used  in  the  conditional  branching  from  this  task.  The  function 
sets  a value  of  2 if  the  operator  will  use  the  tab  hook  method. 
It  sets  a value  of  1 if  the  method  is  the  number  or  position 
hook.  If  a sequence  hook  is  to  be  used,  it  checks  to  see  if 
the  unit  to  be  hooked  is  of  the  proper  type.  That  is,  it  may 
be  requesting  a sequence  hook  for  tracks  but  the  site  being 
hooked  is  indeed  a fire  unit.  In  this  case,  the  method 
defaults  to  tab  hook.  If  the  type  of  sequence  hook  matches 
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the  object  being  hooked,  a value  of  0 is  set  to  route  the 
operator  to  the  sequence  hook  procedures. 


User  Fvmction  21 

User  function  21  is  called  at  the  completion  of  task  36, 
It  is  used  to  assign  values  to  system  attribute  1 which  is 
used  for  the  conditional  branching.  The  function  returns  a 
value  of  1 if  the  object  being  hooked  matches  the  category 
currently  being  used  by  this  system.  If  the  category  does 
not  match,  then  a value  of  0 is  assigned. 


User  Function  22 

User  function  22  is  called  at  the  completion  of  task  37. 
This  function  records  the  category  required  for  the  sequence 
hook. 


User  Function  23 

User  function  23  is  called  at  the  completion  of  task  38. 
It  assigns  a value  to  system  attribute  1 which  is  used  for  the 
conditional  branching  from  this  task.  By  a call  to  function 
NHOOK  the  action  of  pressing  TASK  FUNCTION  - SEQHOOK  is  simu- 
lated. If  no  symbols  of  the  category  requested  are  found, 
the  function  is  set  to  1 . If  a symbol  of  the  correct  type  is 
found  but  it  is  not  the  track  or  fire  unit  desired,  the 
function  is  set  to  0 . If  the  correct  track  is  found,  the 
function  is  set  to  2. 
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User  Function  24 

User  function  24  is  called  at  the  completion  of  task  47. 

It  assigns  a value  to  system  attribute  8 which  is  used  for 
the  conditional  branching  from  this  task.  The  function  first 
checks  to  see  if  there  was  actually  a fire  unit  assigned. 

If  information  attribute  2 is  equal  to  0,  then  there  were  no 
fire  units  available  at  the  time  of  assignment  and  nothing 
further  is  done.  If  there  was  a fire  unit  assigned, 
the  fire  unit  and  track  are  paired.  This  causes  the  range 
of  the  SS  variables  to  change  from  giving  the  distance  of  the 
track  to  the  center  of  the  system  to  giving  the  distance  of 
the  track  to  the  fire  unit.  Next,  the  function  checks  to 
see  if  the  fire  unit  is  still  assigned  to  the  track.  If  it 
is  not,  the  function  value  is  set  to  0 and  variable  RSTAT 
is  set  to  4,  indicating  that  the  track  is  not  attached. 

If  the  fire  unit  is  still  attached,  the  value  of  the  function 
is  set  to  1 and  the  fire  unit  status  is  set  to  3,  engaged. 

User  Function  25 

User  function  25  is  called  at  the  completion  of  task  48. 

It  assigns  a value  to  system  attribute  8 which  is  used  in  the 
conditional  branching  from  this  task.  This  function  checks 
to  see  if  the  track  is  still  engaged  to  the  fire  unit.  If  it 
is  not,  the  value  of  the  function  is  set  to  -2  and  the  value  of 
variable  RSTAT  is  set  to  4,  indicating  that  the  track  is 
no  longer  engaged.  If  the  track  is  engaged,  a check  is  made 
to  see  if  it  is  a secondary  or  primary  track.  If  it  is  a 
primary  track,  a further  check  is  made  to  see  if  it  is  within 
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firing  range.  If  the  track  is  within  firing  range,  the 
function  is  set  to  1.  If  it  is  a secondary  track,  the  fire 
unit  status  is  updated  to  indicate  the  holding  of  a track 
and  the  function  is  set  to  -1.  If  the  track  is  primary  but 
not  within  firing  range,  variable  RSTAT  is  set  to  2, 
indicating  that  the  track  is  being  held  for  distance  reasons 
and  the  function  is  set  to  0. 


User  Function  26 

User  function  26  is  called  at  the  completion  of  task  49. 
It  assigns  a value  to  system  attribute  8 which  is  used  for  the 
conditional  branching  from  this  task.  The  function  first 
checks  to  see  if  the  fire  unit  and  track  are  still  assigned. 

If  they  are  not,  then  the  function  is  set  to  -1  and  variable 
RSTAT  is  set  to  4 . If  the  fire  unit  is  still  engaged  to  the 
track,  then  the  fire  unit  is  checked  for  a hold  fire  message. 
If  there  is  a hold  fire  message,  the  fire  unit  status  is 
updated  and  variable  RSTAT  is  set  to  3.  In  addition,  the 
function  is  set  to  0.  If  the  engagement  is  to  continue,  the 
fire  unit  status  is  set  to  4,  indicating  the  firing  process, 
and  the  function  is  set  to  1. 


User  Function  27 

User  function  27  is  called  at  the  completion  of  task  51. 
It  assigns  a value  to  system  attribute  8 which  is  used  for  the 
conditional  branching  from  this  task.  This  function  first 
checks  to  see  if  a cease  fire  message  was  received.  If  no 
cease  fire  message  was  received,  it  makes  a random  check  to 
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see  if  the  firing  of  the  missile  was  effective.  This  is  done 

by  comparing  the  effectiveness  ratio  with  a uniformly  distri-  i 

bated  random  variable.  When  the  firing  was  effective  an 

effective  status  is  set  in  the  fire  unit  status  array  and  the 

track  status  is  set  to  0.  If  the  firing  was  not  effective,  a 

check  is  made  to  see  if  the  minimum  distance  is  greater  than  35. 

This  check  will  determine  if  the  target  is  out  of  range  due  to 
a change  in  course  or  flying  past  the  firing  unit.  If  the 
missile  is  still  within  range  and  the  firing  was  ineffective, 
a second  firing  is  initiated.  This  is  accomplished  by  setting 
the  function  value  to  1.  If  the  track  is  no  longer  in  range 
or  a cease  fire  message  was  received,  the  value  of  the  function 
is  set  to  2;  the  track  status  and  the  fire  unit  status  are 
updated  and  the  value  of  variable  RSTAT  is  set  to  4 to  indi- 
cate that  the  track  is  no  longer  engaged.  After  all  of  these 
checks  have  been  made,  the  fire  unit  is  checked  to  see  if  it 
has  any  missiles  remaining.  If  there  are  none,  the  status  of 
the  fire  unit  is  changed  to  blinking.  If  this  is  done,  the 
value  of  the  function  is  reset  to  0.  This  evaluation  overrides 
any  of  the  previous  evaluations  but  does  not  change  the  status 
of  the  track  as  it  was  previously  set. 


User  Function  28 

User  function  28  is  called  at  the  completion  of  task  53. 
It  assigns  a value  to  system  attribute  8 which  is  used  for 
the  conditional  branching  from  this  task.  The  function  first 
reclassifies  the  primary  track  as  not  assigned.  This  may  not 
be  necessary  if  the  primary  track  was  effectively  shot  down  in 
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task  51/  however,  if  this  task  is  the  result  of  a clear  cease 
fire  message,  this  will  not  have  been  done.  Next,  the  function 
checks  to  see  if  there  is  a secondary  track  that  is  being  held 
by  the  firing  unit.  If  there  is,  the  fire  unit  status  is 
updated  by  changing  the  secondary  assignment  to  the  primary 
assignment  and  reengaging  the  track  by  setting  the  function 
value  to  1.  If  there  is  no  secondary  assignment,  the  primary 
assignment  is  cleared  and  the  function  value  is  set  to  0. 


User  Function  29 

User  function  29  is  called  at  the  completion  of  task  54. 
This  function  sets  a flag  in  the  fire  unit  status  array. 

This  flag  will  later  indicate  that  a hold  fire  message  has 
been  received. 


User  Function  30 

User  function  30  is  called  at  the  completion  of  task  55. 
It  assigns  a value  to  system  attribute  8 which  is  used  for 
the  conditional  branching  from  this  task.  This  function  first 
checks  to  see  if  the  fire  unit  status  array  indicates  that  a 
target  is  currently  being  held  under  a hold  fire  order.  If 
nothing  is  being  held,  the  hold  fire  flag  is  cleared  and  the 
function  value  is  set  to  0.  If  a track  is  being  held,  infor- 
mation attribute  1 is  given  the  track  number,  the  value  of 
subroutine  RSTAT  is  set  to  1,  indicating  that  the  track  is 
engaged  and  the  value  of  the  function  is  set  to  1 to  route  a 
message  to  task  49  for  the  reengagement. 
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User  Function  31 

User  function  31  is  called  at  the  completion  of  task  57. 
It  assigns  a value  tc  system  attribute  8 which  is  used  for  the 
conditional  branching  from  this  task.  The  function  clears  the 
track  status  array  and  then  checks  to  see  if  the  track  is  the 
primary  or  secondary  assignment  for  the  fire  unit.  If  it  is 
the  primary  assignment,  a further  check  is  made  to  see  if  the 
fire  unit  is  currently  firing  at  the  target.  If  it  is  not 
firing  at  the  target,  the  value  of  the  function  is  set  to  0 
which  will  send  a message  to  task  53  for  the  possible  engage- 
ment of  the  secondary  assignment.  If  it  is  firing  at  the 
target,  a flag  is  set  in  the  fire  unit  status  array  and  the 
function  value  is  set  to  1.  This  will  cause  task  54,  the 
evaluation  of  the  firing,  to  make  that  evaluation  under  the 
restrictions  of  the  cease  fire  message.  If  the  target  is  the 
secondary  track,  the  fire  unit  status  array  is  cleared,  the 
value  of  variable  RSTAT  is  set  to  4 indicating  that  the 
target  is  no  longer  assigned  and  the  value  of  the  function  is 
set  to  1. 

User  Function  32 

User  function  32  is  called  at  the  completion  of  task  61. 
This  function  is  used  to  initialize  the  value  of  variable 
LTRN  which  is  a counter  used  in  task  63.  It  represents  the 
track  numbers  to  this  system  processing  area. 
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User  Function  33 

User  function  33  is  called  at  the  completion  of  task  63. 
It  assigns  a value  to  system  attribute  6 which  is  used  for  the 
conditional  branching  from  this  task.  This  function  repre- 
sents four  automatic  procedures  that  the  system  or  fire  unit 
may  be  using.  The  first  area  checks  all  engaged  tracks.  If 
the  engaged  track  is  friendly,  a situation  that  would  result 
from  a change  of  identification,  a cease  fire  message  is 
initiated  to  the  fire  unit.  The  second  section  represents 
a fire  unit  action.  If  the  fire  unit  is  holding  fire  because 
the  target  is  currently  not  within  its  firing  range,  then  a 
check  is  made  to  see  if  the  minimum  distance  is  greater  than 
30  miles.  This  is  to  see  if  the  track  has  changed  course  and 
will  no  longer  pass  within  range  of  the  fire  unit  or  that  the 
track  has  flown  past  the  fire  unit.  Next,  the  check  is  made 
to  see  if  the  target  is  within  range.  This  is  a random  check 
that  is  governed  by  distribution  set  16.  If  these  conditions 
are  satisfied,  a reengagement  message  is  sent.  This  is 
accomplished  by  assigning  to  information  attribute  1 the  track 
nxmber,  information  attribute  2 the  fire  unit  number  and 
information  attribute  3 the  value  6.  If  the  track  will  not 
come  within  range,  a message  is  sent  to  the  fire  units  to 
engage  a possible  secondary  target.  This  is  accomplished  by 
setting  information  attribute  3 to  the  value  1.  The  third 
section  is  used  to  check  and  possibly  update  the  status  of  an 
engaged  track  that  is  currently  under  a hold  fire  order. 

If  the  status  is  now  free,  a cancel  hold  fire  message  is  sent. 
If  the  identification  of  the  target  had  changed  from  unknown 


i 


92 


to  hostile  and  the  target  is  within  range,  a clear  hold  fire 
message  is  sent.  This  message  is  indicated  by  assigning  the 
value  5 to  information  attribute  3 . The  fourth  section  of 
this  function  checks  nonengaged  tracks  for  possible  engagement. 
This  would  be  true  if  they  are  hostile  and  within  the  range 
defined  by  distribution  set  15.  It  would  also  be  true  if  they 
are  an  unknown  track  and  within  the  range  defined  by  distri- 
bution set  16.  If  no  action  was  taken,  a value  of  2 is 
returned.  This  sends  the  system  back  to  task  61.  If  any 
action  was  taken,  a value  of  1 or  0 is  returned.  This  will 
send  a message  to  the  fire  unit  section  and  it  will  also  route 
the  system  back  to  this  task,  task  63.  In  addition,  if  a hold 
fire  message  is  needed,  that  is,  the  target  is  an  unknown 
target  and  the  system  is  tight,  the  value  will  be  set  to  0 
which  will  route  the  system  to  task  64  to  send  a hold  fire 
message.  In  addition,  the  value  of  system  attribute  10  will 
be  set  to  1 if  an  engagement  message  of  any  type  is  sent  to 
the  fire  units.  This  will  direct  the  system  to  task  75. 


User  Function  34 

User  function  34  is  called  at  the  completion  of  task  65. 

It  assigns  a value  to  system  attribute  9 which  is  used  for  the 
conditional  branching  from  this  task.  This  task  assigns 
the  aircraft  number  to  information  attribute  1 for  each  aircraft. 
It  does  this  by  branching  to  itself  if  the  count  on  the  aircraft 
is  less  than  the  total  number  of  aircraft  required.  This  is 
accomplished  by  assigning  0 to  the  value  of  the  function. 


Once  the  total  nuntber  of  aircraft  has  been  processed,  the 
value  of  1 is  assigned  to  the  function  to  terminate  this 
activity. 

User  Function  35 

User  funct-.^n  35  is  called  at  the  completion  of  task  66. 
This  function  assigns  the  initial  SS  values  for  each  aircraft, 
that  is,  the  location  where  the  aircraft  first  appears  on  the 
radar  screen.  It  also  updates  the  pointer  for  this  track 
which  will  cause  the  track  to  begin  movement  and  it  assigns 
a video  status  to  each  track. 

User  Function  36 

User  function  36  is  called  at  the  completion  of  task  67. 
This  function  updates  the  pointer  so  that  the  velocity  vectors 
for  the  next  leg  will  be  used  by  subroutine  STATE. 

User  Function  37 

User  function  37  is  called  at  the  completion  of  task  68. 

It  assigns  a value  to  system  attribute  9 which  is  used  for  the 
conditional  branching  from  this  task.  This  function  updates 
the  true  identification  of  the  track  as  well  as  updating  the 
status  on  the  screen  if  the  proper  automatic  modes  are  in  effect 
In  addition,  if  the  change  is  reflected  on  the  radar  screen, 
a value  of  1 is  given  to  system  attribute  10.  This  will 
direct  the  system  to  task  75. 


It  is  used  to  assign  a track  to  a fire  unit  by  returning  the 
fire  unit  number  to  be  attached.  This  is  accomplished  by 
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calling  subroutine  ASSIG.  A value  of  0 would  indicate  no 
fire  unit  was  available. 

User  Function  43 

User  function  43  is  not  used. 

User  Function  44 

User  function  44  is  not  used. 


User  Function  45 

User  function  45  is  called  at  the  completion  of  task  75. 

It  assigns  a value  to  system  attribute  5 which  is  used  for  the 
conditional  branching  from  this  task.  This  function  determines 
if  the  current  track  being  processed  by  the  operator  is  the 
same  as  the  one  that  was  automatically  updated  by  tasks  63  or  68. 
It  also  checks  if  the  hooking  procedures  were  used.  If  the 
first  condition  was  satisfied,  the  function  returns  the  value 
2,  3 or  4 depending  on  the  updated  identification  status 
of  the  aircraft.  If  both  conditions  were  satisfied,  the 
function  returns  the  value  5,  if  neither  condition  was 
satisfied,  the  function  returns  the  value  6. 


User  Function  46 

User  function  46  is  called  at  the  completion  of  task  79. 
This  function  makes  use  of  user  function  4 5 to  make  the  same  check  on 
the  tracks  being  processed  and  returns  the  same  values  if 
the  first  condition  is  satisfied.  If  this  condition  is  not 
satisfied,  the  function  returns  the  value  5. 
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FUNCTION  USERF(JJ) 

USERF 

1 

REAL  TRCLA(33.5).FUCLA(11.9) 

UCOMl 

1 

COMMON  /UCOMl/  TRCLA.FUCLA 

UCOMl 

2 

UCOMl 

3 

REAL  TRST A ( 44 , 3 ) , TRROU ( 1 55 , 4 ) , I NROU ( 33 , 2 ) , TRTYP (33.3) 

UC0M2 

1 

COMMON  /'UC0M2/'  TRSTA.  TRROU,  INROU.  TRTYP 

UC0M2 

2 

UC0M2 

3 

I NTEGER  PA I R ( 33 ) , PTR ( 33 ) . PTT ( 33 ) . RSTAT ( 33 ) 

UC0M3 

1 

COMMON  XUC0M3/  PTR. PTT, RSTAT, PAIR 

UC0M2 

2 

UC0M3 

3 

LOGICAL  AUTOI.AUTOR.AUTOE.TIGH 

UC0M4 

1 

COMMON  /'UC0M4/'  AUTOI.AUTOR.AUTOE.TIGH 

UC0M4 

2 

UC0M4 

3 

REAL  UALUE(20).STI(20),STOT 

UC0M5 

1 

COMMON  /UCOMS/  UALUE, STI, STOT 

UC0M5 

2 

UC0M5 

3 

I NTEGER  TYHOOK , SECT . PSEQ 

UCOMG 

1 

COMMON  /'UCOMG/  TYHOOK,  SEQT,P5EQ 

UC0M6 

2 

UCOMG 

3 

INTEGER  NFU.NTRFU.NTRK 

UC0M7 

1 

COMMON  /'UC0M7/  NFU.NTRFU.NTRK 

UC0M7 

2 

UC0M7 

3 

UC0M7 

4 

UCOM7 

5 

REAL  CX(33),CY(33) 

UC0M8 

1 

INTEGER  IPTR(33),IPTT(33) 

UC0M8 

2 

COMMON  ^'UCOMS/  CX.CY, IPTR, IPTT, IPC 

UC0M8 

3 

UC0M8 

4 

LOGICAL  TRCH 

UCOMS 

1 

REAL  TRMOD ( 33 ) , TOTRT ( 33 ) . TMARK , TMARE 

UC0M9 

2 

INTEGER  NOLDTY.LPAGE 

UCOMS 

3 

COMMON  /'UC0M9/  TRCH, TRMOD. TOTRT, TMARK. TMARE. LPAGE.NOLDTY 

UC0M9 

4 

USERF 

3 

COMMON  /COMOG/  TNOU.TTNEX.MFAD.SEED. ISEED.NCRDR.NPRNT.NPUNCH, 

COMOG 

1 

* NRNIT.NRENT.MNDC.NDC.NDTN.NNTC 

COMOG 

2 

COMMON  /C0M17/  59(100), SSL(100),DD(100),DDL(100),LLSUR(100, 2) 

C0M17 

1 

COMMON  /COMEE/  TTIME.PFIRB 

C0M22 

1 

USERF 

7 

LOGICAL  DUML.UPTR.ENG.NEWTR 

USERF 

8 

USERF 

9 

GO  TO  (100. 200.300, 400, 500. GOO. 700. 800. 900. 1000. 

USERF 

10 

• 1100. 1200. 1300. 1400. 1500. 1600. 1700. 1800. 1900.2000. 

USERF 

11 

• 2100. 2200. 2300. 2400. 2500. 2600. 2700. 2800. 2900. 3000. 

USERF 

12 

• 3100. 3200. 3300. 3400. 3500. 3600. 3700. 3800. 3900. 4000. 

USERF 

13 

• 4100,4200.4300.4400.4500.4600).  JJ 

USERF 

14 

USERF 

15 

USERF 

IG 

USERF 

17 

USERF 

18 

c 

USER  FUNCTION  1 

USERF 

19 

USERF 

20 

c 

CHECK  IF  NEW  UIDEO 

USERF 

21 

100 

CALL  GETIAd.TRN) 

USERF 

22 

IF(NEWTR(IFIX(TRN)))  GO  TO  110 

USERF 

23 

USERF 

24 

c 

NOT  NEW 

USERF 

25 

USERF  = ST0RP(0.,BUZY(.7S.1.),0) 

USERF 

26 

RETURN 

USERF 

27 

USERF 

28 

c 

NEW 

USERF 

29 

110 

USERF  = ST0RP(BUZY(.3, .8),0.,0) 

USERF 

30 

RETURN 

USERF 

31 

USERF 

32 

USERF 

33 

c 

USER  FUNCTION  2 

USERF 

34 

USERF 

35 

c 

CHECK  IF  AUTO  INITIALIZE 

USERF 

3G 

200 

IF(AUTQI)  GO  TO  210 

USERF 

37 

USERF 

38 

c 

NOT  AUTO  MODE 

USERF 

3S 

USERF  = ST0RP(0.,BUZV(.8,1.),0) 

USERF 

40 

RETURN 

USERF 

41 

210 

CONTINUE 

USERF 

42 

USERF 

43 

. Progran  Listing:  USERF{JJ) 
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flUTO  MODE 

USERF  = STORPCBUZYC.aS, .75).0..0) 
RETURN 


USER  FUNCTION  3 


0 

f 

0 

,1^  [i 
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C TWO  SWEEP  ROTATIONS 
300  USERF  = 2.  * UNFRM(5) 
RETURN 


: USER  FUNCTION  4 

: UPDATE  SYMBOL  STATUS 

400  CALL  GETIACl.TRN) 

DUML  = UPTRCIFIXCTRN)) 
USERF  = 0. 

TRCH  = .TRUE. 

RETURN 


USER  FUNCTION  5 


C CHECK  FOR  AUTO  INTERROGATE 

500  CALL  GETIA(l.TRN) 

ITRN  * TRN 

TRCLA(ITRN.3)  = TRCLAC ITRN. 1 ) 

IF(AUTOR)  GO  TO  SIO 

C NOT  AUTO  ID 

USERF  * ST0RP((BUZY(.9.1.)  • RANGF(ITRN.S)).0..0) 
RETURN 

C AUTO  ID 

510  USERF  = STORP((BUZY(.l. .5)  * RANGFCITRN.S) ). 0. . 0) 
RETURN 


: USER  FUNCTION  6 

: CHECK  FOR  ID  CHANGE 

SOO  CALL  GETIACl.TRN) 

ITRN  = TRN 

IFC.NOT.  UPTR(ITRN))  GO  TO  BIO 

: NO  ID  CHANGE 

: AUTO  ENGAGE  FACTOR 

AF  » 1. 

IF(AUTOE)  AF  = .8 

USERF  = STORP(O..BUZY(.S, 1.)  * AF  * RANGFCITRN, 12).0) 
RETURN 

: ID  CHANGE 

SIO  CALL  CONTCIFIXCTRN)) 

TRCH  » .TRUE. 

USERF  * STORP(1..0..0) 

RETURN 


: USER  FUNCTION  7 

: SET  AUTO  ENGAGE  FACTOR 

700  AF  * 1. 

IF(AUTOE)  AF  » .9 

: CHECK  IF  TIGHT  OF  FREE  STATUS 

IF(TIGH)  GO  TO  710 

Figure  2(2).  Program  Listing:  USERF (JJ) 
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USERF 
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USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

ERR2 

USERF 

USERF 

USERF 

ERR2 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 
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USERF 

USERF 

USERF 

USERF 
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USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 
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c 

FREE 

USERF 

116 

CALL  PUTSA(7,0.) 

USERF 

117 

USERF  = ST0RP((BU2Y(.9. 1.)  * AF),0..0) 

USERF 

118 

RETURN 

USERF 

119 

USERF 

180 

c 

TIGHT 

USERF 

181 

?10 

CALL  PUTSACF.l.) 

USERF 

188 

USERF  = STQRP((BUZY(.9. 1.)  * AF).0.f0) 

USERF 

183 

RETURN 

USERF 

184 

USERF 

185 

USERF 

186 

c 

USER  FUNCTION  8 

USERF 

187 

USERF 

188 

c 

CHECK  FOR  EFFECTIUE  STATUS 

USERF 

189 

800 

DO  810  I = l.NFU 

USERF 

130 

IFCFUCLA(Ifl)  .EO.  5.)  GO  TO  880 

USERF 

131 

810 

CONTINUE 

USERF 

138 

GO  TO  830 

USERF 

133 

USERF 

134 

C 

THERE  IS  AN  EFFECTIUE  STATUS 

USERF 

135 

880 

USERF  = STORP(.1.0..0) 

USERF 

136 

RETURN 

USERF 

137 

USERF 

138 

C 

THERE  IS  NO  EFF  STATUS 

USERF 

139 

830 

USERF  = STORP(1..0.,0) 

USERF 

140 

RETURN 

USERF 

141 

USERF 

148 

USERF 

143 

C 

USER  FUNCTION  9 

USERF 

144 

USERF 

145 

C 

CLEAR  EFFECTIUE  STATUS 

USERF 

146 

300 

DO  910  I = l.NFU 

USERF 

147 

IFCFUCLACI.l)  .NE.  5.)  GO  TO  910 

USERF 

148 

FUCLA(I.l)  = 1. 

USERF 

149 

GO  TO  980 

USERF 

150 

910 

CONTINUE 

USERF 

151 

980 

CALL  PUTIA(8.FL0AT(I)) 

USERF 

158 

CALL  PUTIA(1.FUCLA(I.8)) 

ERRS 

3 

RETURN 

USERF 

153 

USERF 

154 

USERF 

155 

C 

USER  FUNCTION  10 

USERF 

156 

USERF 

157 

C 

STORE  BRANCH  PROBABILITY 

USERF 

158 

1000 

USERF  = ST0RP(.8. .15.0) 

USERF 

159 

RETURN 

USERF 

160 

USERF 

161 

USERF 

168 

C 

USER  FUNCTION  11 

USERF 

163 

USERF 

164 

C 

CHECK  IF  LAST  HOST I L 

USERF 

165 

1100 

CALL  GETIA(l.TRN) 

USERF 

166 

ITRN  = TRN 

USERF 

167 

IF(TRCLA(IFIX(TRN).3)  .NE.  4.)  GO  TO  1110 

USERF 

168 

USERF 

169 

c 

HOSTILE 

USERF 

170 

USERF  a STORP(.95.0..0) 

USERF 

171 

TRCLA(IFIX(TRN),3)  = TRCLACIFIXCTRN). 1) 

USERF 

178 

RETURN 

USERF 

173 

USERF 

174 

c 

NON  HOSTILE 

USERF 

175 

1110 

USERF  = STORPCO..O..O) 

USERF 

176 

TRCLA(ITRN,3)  = TRCLAC ITRN. 1 ) 

USERF 

177 

RETURN 

USERF 

178 

USERF 

179 

USERF 

180 

c 

USER  FUNCTION  18 

USERF 

181 

USERF 

188 

c 

CHECK  FOR  ASSIGNED  FU 

USERF 

183 

1800 

FU  a 0. 

USERF 

184 

CALL  GETIA(l.TRN) 

USERF 

185 

IF(TRCLA(IFIX(TRN).4)  .EQ.  0.)  GO  TO  1810 

USERF 

186 

USERF 

187 

Figure  2(3).  Program  Listing;  USERF(JJ) 
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c 

FIRE  UNIT  ASSIGNED 

USERF 

188 

USERF  = STORP(1..0..0) 

USERF 

189 

TRCLA(IFIX(TRN).4)  = 0. 

USERF 

190 

RETURN 

USERF 

191 

USERF 

192 

c 

NO  FU  ASSIGNED 

USERF 

193 

1210 

USERF  = STORP(0..0..0) 

USERF 

194 

RETURN 

USERF 

195 

USERF 

19S 

USERF 

197 

C 

USER  FUNCTION  13 

USERF 

198 

USERF 

199 

c 

SET  RANGF  FACTOR  AND  AUTO 

EXCHANGE  FACTOR 

USERF 

200 

1300 

AF  = 1. 

USERF 

201 

CALL  GETIAd.TRN) 

USERF 

202 

ITRN  = TRN 

USERF 

203 

TRCLA(ITRN.3)  = TRCLACITRN 

>1) 

USERF 

204 

IF(TRCLA(IFIX(TRN),4)  .NE. 

0.) 

GO  TO  1320 

USERF 

205 

IF(AUTOE)  AF  = .2 

USERF 

206 

USERF 

207 

C 

CHECK  FOR  HF 

USERF 

208 

IFUNP  = IFIX(TRCLA(IFIX(TRN).4)) 

USERF 

209 

IH  a 0 

USERF 

210 

IF(FUCLA( IFUNP. 1)  .EQ.  9.) 

IH 

» IH  + 2 

USERF 

211 

IFCIH  .GT.  0)  GO  TO  1310 

USERF 

212 

USERF 

213 

c 

NO  HOLD  FIRE 

USERF 

214 

USERF  * STORPCAF  * RANGF(IFIX(TRN).25).0.,0) 

USERF 

215 

RETURN 

USERF 

216 

USERF 

217 

c 

CLEAR  HOLD  FIRE 

USERF 

218 

1310 

USERF  = STORPC0..1..0) 

USERF 

219 

RETURN 

USERF 

220 

USERF 

221 

C 

ATTACHED  RETURN  TO  SEARCH 

USERF 

222 

1320 

USERF  = STORP(0.,0..0) 

USERF 

223 

RETURN 

USERF 

224 

USERF 

225 

USERF 

226 

C 

USER  FUNCTION  14 

USERF 

227 

USERF 

228 

1400 

CONTINUE 

USERF 

229 

c 

PRIMARY  ONLY 

USERF 

230 

CALL  PUT1A(2. FLOAT! IFUNP)) 

USERF 

231 

USERF  = 0. 

USERF 

232 

RETURN 

USERF 

233 

USERF 

234 

USERF 

235 

USERF 

236 

USERF 

237 

c 

USER  FUNCTION  15 

USERF 

238 

USERF 

239 

c 

CHECK  FU  STATUS 

USERF 

240 

c 

CHECK  IF  OPERATIONAL 

USERF 

241 

1500 

CALL  GETIA(2.FN) 

USERF 

242 

I FUN  = FN 

USERF 

243 

IFCFUCLAdFUN.l)  .NE.  7.) 

GO 

TO  1510 

USERF 

244 

USERF  = STORP(0.,0..0) 

USERF 

245 

RETURN 

USERF 

246 

USERF 

247 

c 

SOTRE  TR  NO 

USERF 

248 

1510 

CALL  PUTIACl.FUCLAdFUN 

.2)) 

USERF 

249 

USERF 

250 

c 

CHECK  IF  BLINKING  SET  TO 

NOT 

OPERATIONAL 

USERF 

251 

IFCFUCLAdFUN.l)  .NE.  10.) 

GO 

TO  1520 

USERF 

252 

USERF  = STORPd..O..O) 

USERF 

253 

FUCLACIFUN. 1)  = 7. 

USERF 

254 

RETURN 

USERF 

255 

USERF 

256 

c 

ALL  OTHERS 

USERF 

257 

1520 

USERF  = STORPCO.. .7.0) 

USERF 

258 

RETURN 

USERF 

259 

USERF 

260 

USERF 

261 

USER"^ 

262 

0 


Figure  2(4).  Program  Listing:  USERF(JJ) 
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c 

USER  FUNCTION  IS 

USERF 

263 

USERF 

264 

c 

SET  BRANCH  IF  P OR  S ASSIGN  EXISTS 

USERF 

265 

1600 

USERF  = 0. 

USERF 

266 

IF(FUCLA(IFUN.2)  .NE.  0.)  USERF  = 1. 

USERF 

267 

IF(FUCLA(IFUN.3)  .NE.  0.)  USERF  = 2. 

USERF 

268 

RETURN 

USERF 

269 

USERF 

270 

USERF 

271 

USERF 

272 

C 

USER  FUNCTION  17 

USERF 

273 

USERF 

274 

C 

SET  FIRE  UNIT  STATUS 

USERF 

275 

1700 

FUCLA(IFUN.l)  = 0. 

USERF 

276 

TRSTACIFUN. 1)  = 0. 

USERF 

277 

RETURN 

USERF 

278 

USERF 

279 

USERF 

280 

USERF 

281 

C 

USER  FUNCTION  18 

USERF 

282 

USERF 

283 

C 

SET  TIME  AT  TWO  SUEEPS 

USERF 

284 

1800 

USERF  = UNFRM(7)  * 2. 

USERF 

285 

USERF 

286 

C 

CLEAR  SECONDARY  ASSIGN 

USERF 

287 

ITRN  = FUCLA(IFUN,3) 

USERF 

288 

TRCLA(ITRN,4)  = 0. 

USERF 

289 

IFCTRCLACITRN.l)  .NE.  0.)  CALL  CONT(ITRN) 

ERR2 

4 

USERF 

291 

C 

SET  MESSAGE 

USERF 

292 

CALL  PUTIAd.FLOATCITRN)) 

USERF 

293 

CALL  PUTIA(2.FN) 

USERF 

294 

RETURN 

USERF 

295 

USERF 

296 

USERF 

297 

USERF 

298 

c 

USER  FUNCTION  19 

USERF 

299 

USERF 

300 

c 

CLEAR  FU 

USERF 

301 

1300 

ITRN  = FUCLA(IFUN,2) 

USERF 

302 

TRCLA(ITRN,4)  * 0 

USERF 

303 

IFCTRCLAdTRN.  1)  .NE.  0.)  CALL  CONTCITRN) 

ERR2 

5 

USERF 

305 

C 

SET  MESSAGE 

USERF 

306 

CALL  PUTIAd.FLOATCITRN)) 

USERF 

307 

CALL  PUTIA(2.FN) 

USERF 

308 

RETURN 

USERF 

309 

USERF 

310 

USERF 

311 

USERF 

312 

c 

USER  FUNCTION  20 

USERF 

313 

USERF 

314 

c 

CHECK  IF  TAB  OR  NUM  HOOK  IS  ALWAYS  USED 

USERF 

315 

2000 

IFCTYHOOK  .EQ.  0)  GO  TO  2010 

USERF 

316 

USERF 

317 

C 

NUMBER  OR  SEQUENCE  HOOK 

USERF 

318 

USERF  = TYHOOK 

USERF 

319 

RETURN 

USERF 

320 

USERF 

321 

C 

SEQUENCE  HOOK 

USERF 

322 

C 

CHECK  IF  FOR  REQUIRED  TYPE 

USERF 

323 

2010 

CALL  GETSACS.RESQT) 

USERF 

324 

USERF  = 2. 

USERF 

325 

USERF 

326 

C 

CHECK  TRACK 

USERF 

327 

IFCCSEQT  .LE.  1)  .AND.  (RESQT  .EQ.  0.))  USERF  * 0. 

ERR2 

6 

USERF 

329 

C 

CHECK  FU 

USERF 

330 

IFCCSEQT  .EQ.  0 .OR.  SEQT  .EQ.  2 .OR.  SEQT  .EQ.  3) 

USERF 

331 

* .AND.  CRESQT  .EQ.  1.))  USERF  » 0. 

USERF 

332 

USERF 

333 

Figure  2(5).  Program  Listing:  USERF(JJ) 
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CCECK  HT 

IF((SEQT  .GE.  3)  .AMD.  (RESQT  .EQ.  0))  USERF  » 0. 
RETURN 


C USER  FUNCTION  21 

C CHECK  IF  CORRECT  TYPE 

2100  USERF  = 1 

IFCSEQT  .GE.  3)  GO  TO  2110 

C NON  HOSTIL  TARGET 

IF((PSEQ  .EQ.  0)  .AND.  (RESQT  .CT.  0.))  USERF  » 0. 

IF((PSEQ  .GT.  0)  .AND.  (RESQT  .LT.  1.))  USERF  = 0. 

RETURN 

C HOSTIL  TARGET 

2110  IF((PSEQ  .EQ.  2)  .AND.  (RESQT  .GT.  0.))  USERF  ■ 0. 

IF((PSEQ  .EQ.  1)  .AND.  (RESQT  .LT.  1.))  USERF  = 0. 

RETURN 


C USER  FUNCTION  22 

C UPDATE  THE  SEQUENCE  TYPE 
2200  USERF  = 0. 

PSEQ  = IFIX( RESQT) 

IF((SEQT  .GE.3)  .AND.  (PSEQ  .EQ.  0))  PSEQ 
RETURN 


C USER  FUNCTION  23 

C GET  THE  NEXT  HOOKED  ITEM 

2300  CALL  GETIAd.TRN) 

CALL  GETIA(2.FNF) 

IF (PSEQ  .EQ.  1)  TRN  = -FNF 
IF(NHOOK(PSEQ. TRN) ) 2310.2320.2330 

C NOTHING  OF  THAT  TYPE 
2310  USERF  = 1. 

RETURN 

C NOT  THE  CORRECT  TRACK 
2320  USERF  = 0. 

RETURN 

C CORRECT  TRACK 
2330  USERF  = 2. 

RETURN 


USER  FUNCTION  24 

CHECK  IF  FU  AUALIABLE 
CALL  GETIA(2.FNF) 

IF(FNF  .EQ.  0.)  RETURN 
CALL  GETIA(l.TRNF) 
PAIR(IFIX(TRNF))  = IFIX(FNF) 

CHECK  IF  TRACK  IS  STILL  ENGAGED 
USERF  = 0. 

IF(ENG(IPS))  GO  TO  2410 
RSTAT(IFIX(TRNF))  = 4 
RETURN 


Figure  2(6).  Program  Listing:  USERF{JJ) 


USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 
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c 

STILL  ACTIOE  UPDATE  STATUS 

IF  PRIMARY 

USERF 

405 

2410 

USERF  = 1. 

USERF 

406 

IFdPS  .GT.  0)  GO  TO  2420 

USERF 

407 

FUCLA(IFIX(FNF1,1)  = 3. 

USERF 

408 

2420 

RETURN 

USERF 

403 

USERF 

410 

USERF 

411 

USERF 

412 

C 

USER  FUNCTION  25 

USERF 

413 

USERF 

414 

C 

CHECK  IF  TRACK  IS  STILL  ENGAGED 

USERF 

415 

2500 

USERF  = 0. 

USERF 

416 

IFCENGdPS))  GO  TO  2510 

USERF 

417 

CALL  GETIAd.TRNF) 

USERF 

418 

RSTATdFIX(TRNF))  = 4 

USERF 

419 

USERF  * -2. 

USERF 

420 

RETURN 

USERF 

421 

USERF 

422 

C 

STILL  ACTIUE  UPDATE  STATUS 

IF  PRIMARY 

HOLD  SECONDARY 

USERF 

423 

2510 

IFdPS  .GT.  0)  GO  TO  2520 

USERF 

424 

CALL  GETIAd.TRNF) 

USERF 

425 

IR  = TRNF  * 3. 

USERF 

426 

IF(SSdR)  .GT.  35.)  GO  TO 

2530 

USERF 

427 

USERF  = 1. 

USERF 

428 

RETURN 

USERF 

429 

USERF 

430 

C 

HOLD  SECONDARY 

USERF 

431 

2520 

CALL  GETIA(2.FNF) 

USERF 

432 

FUCLAdFIX(FNF),3)  » -FUCLAdFIX(FNF), 

3) 

USERF 

433 

USERF  = -1. 

USERF 

434 

RETURN 

USERF 

435 

USERF 

436 

2530 

CALL  GETIA(2.FNF) 

USERF 

437 

CALL  GETIAd.TRNF) 

USERF 

438 

RSTATdFIX(TRNF))  » 2 

USERF 

439 

RETURN 

USERF 

440 

USERF 

441 

USERF 

442 

USERF 

443 

C 

USER  FUNCTION  26 

USERF 

444 

USERF 

445 

C 

CHECK  FOR  CANCEL 

USERF 

446 

2600 

USERF  = 0. 

USERF 

447 

IF(ENGdPS))  GO  TO  2605 

USERF 

448 

CALL  GETIAd.TRNF) 

USERF 

449 

RSTATdFIX(TRNF))  = 4 

USERF 

450 

USERF  = -1. 

USERF 

451 

RETURN 

USERF 

452 

USERF 

453 

C 

STILL  ACTIUE  CHECK  FOR  HOLD  FIRE 

USERF 

454 

2605 

CALL  GETIA(2.FNF) 

USERF 

455 

IF(FUCLAdFIX(FNF).7)  .EQ. 

0)  GO  TO  2610 

USERF 

456 

USERF 

457 

C 

IS  HOLD  FIRE  HOLD  FU 

USERF 

458 

FUCLAdFIXCFNF).?)  « -1. 

USERF 

459 

CALL  GETIAd.TRNF) 

USERF 

460 

RSTATdFIX(TRNF))  = 3 

USERF 

461 

RETURN 

USERF 

462 

USERF 

463 

c 

PROCEED  UPDATE  STATUS 

USERF 

464 

2610 

FUCLAdFIX(FNF).  1)  * 4. 

USERF 

465 

USERF  = 1. 

USERF 

456 

RETURN 

USERF 

467 

USERF 

468 

USERF 

469 

USERF 

470 

C 

USER  FUNCTION  27 

USERF 

471 

USERF 

472 

c 

CHECK  IF  EFFECT I UE 

USERF 

473 

2700 

CALL  GETIA(2.FNF) 

USERF 

474 

CALL  GETIAd.TRNF) 

USERF 

475 

PAIRdFIX(TRNF))  = 11 

ERR2 

7 

IF(FUCLAdFIX(FNF).G)  .EQ. 

1.)  GO  TO 

2720 

USERF 

476 

USERF 

477 

Figure  2(7).  Prograra  Listing:  USERF(JJ) 
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IF(UNFRM(1)  .GT.  FUCLA(IFIX(FNF).9))  GO  TO  2710 


STATUS  EFFECTIUE 
FUCLA(1F1X(FNF).1)  * 5. 
USERF  = 0. 

TRCLA(IFIX(TRMF),2)  » 0. 
TRCLA(IFIX(TRMF),1)  = 0. 
TRCLA(IF1X(TRMF),4)  = -1. 
GO  TO  2730 


CHECK  RAMGF  AMD  CEASE  FIRE  STATUS 
CALL  GETIA(l.TRMF) 

IR  = TRNF  * 3. 

IFUNF  = FMF 
ITRN  = TRMF 

CALL  CLOTR( ITRM. IFUNF, CLU, DMIN, THIN.  DIS) 
IF(DMIN  .GT.  35)  GO  TO  2720 


STILL  IN  RANGF  CONTINUE  TO  FIRE 
USERF  a 1. 

CO  TO  2730 


NOT  IN  RANGE  OR  CEASE  FIRE 
USERF  a 2. 

TRCLA(IFIX(TRNF),4)  = 0. 
FUCLA(IFIX(FNF).l)  = 1. 
RSTAT(ITRN)  = 4 
FUCLA(IFIX(FNF).S)  = o. 


CHECK  IF  OUT  OF  MISSLES 

FUCLA(IFIX(FNF).8)  = FUCLA(IFIX(FNF),8)  - 1. 
IF(FUCLA(IFIX(FNF),8)  .GE.  1.)  GO  TO  2740 
FUCLACIFIXCFNF), 1)  = 10. 

USERF  a 0. 

RETURN 


USER  FUNCTION  28 


CHECK  FOR  SECONDARY 
CALL  GETIA(2.FNF) 

CALL  GETIA(l.TRNF) 
RSTAT(IFIX(TRNF))  a 4 
IFUNF  a fnF 

IF(FUCLA(IFUNF,3)  .GE.  0) 


GO  TO  2810 


THERE  IS  A SEC  ASSIGN 
SET  NEU  FU  STATUS 

FUCLA(IFUNF,2)  a -FUCLA(IFUNF,3) 
FUCLA(IFUNF,3)  a 0. 

CALL  PUTIA(1,FUCLA(IFUNF.2)) 

USERF  a 1. 

I TRNF  a FUCLA(IFUNF,2) 

PAIR(ITRNF)  a IFUNF 
CALL  CLOTRC ITRNF, IFUNF, DA, DB, DC, DIS) 
IF(DIS  .LT.  UNFRM(IB))  RETURN 
SECONDARY  OUT  OF  RANGE 
RSTAT(ITRNF)  a 2. 

USERF  a 0. 

RETURN 

RETURN 


NO  SEC  STORED 

FUCLA(IFUNF,2)  = FUCLA(IFUNF,3) 
FUCLA(IFUNF,3)  a 0. 
PAIRCIFIXCTRNF))  = 11 
USERF  a 0. 

RETURN 


USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 
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USERF 
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USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

USERF 

ERR2 

ERR2 

ERR2 

ERR2 

ERR2 

ERR2 

ERR2 

ERR2 

USERF 

USERF 

USERF 

USERF 

USERF 

ERR2 

USERF 

USERF 

USERF 

USERF 

USERF 


Figure  2(8).  Program  Listing:  USERF(JJ) 
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c 

USER  FUMCTION  29 

USERF 

542 

USERF 

543 

c 

SET  HOLD  FIRE  MESSHGE 

USERF 

544 

2300 

CALL  GETIA(2.FNF) 

USERF 

545 

IFCFMF  .EQ.  0.1  RETURN 

USERF 

546 

FUCLA(IFIX(FNF),7)  = 1. 

USERF 

547 

RETURN 

USERF 

548 

USERF 

549 

USERF 

550 

USERF 

551 

C 

USER  FUNCTION  30 

USERF 

552 

USERF 

553 

C 

CLEAR  HF  MESSAGE 

USERF 

554 

3000 

CALL  GETIA(2,FNF) 

USERF 

555 

IF(FUCLA(IFIXCFNF).7)  .EQ.  -1.)  GO  TO  3010 

USERF 

556 

USERF 

557 

c 

NOTHING  HAS  BEEN  HELD  CLEAR 

USERF 

558 

FUCLA(IFIX(FNF),7)  = 0. 

USERF 

559 

USERF  = 0 

USERF 

560 

RETURN 

USERF 

561 

USERF 

562 

c 

RESTART  HELD  TRACK 

USERF 

563 

3010 

CALL  PUTIA(1.FUCLA(IFIX(FNF).2)) 

USERF 

564 

CALL  GETIACl.TRNFl 

USERF 

565 

RSTATCIFIXCTRNFll  = 1 

USERF 

566 

USERF  = 1. 

USERF 

567 

RETURN 

USERF 

568 

USERF 

569 

USERF 

570 

USERF 

571 

c 

USER  FUCNTION  31 

USERF 

572 

USERF 

573 

c 

PROCESS  CEASE  FIRE/ENGAGEMENT 

USERF 

574 

3100 

CALL  GETIA(l.TRNF) 

USERF 

575 

CALL  GETIA(2,FNF) 

USERF 

576 

ITRNF  = TRNF 

USERF 

577 

IFUNF  = FNF 

USERF 

578 

PAIRC ITRNF)  = 11 

ERR2 

17 

TRCLA(ITRNF.4)  = 0. 

USERF 

579 

USERF 

580 

C 

PRIMARY  OR  SECONDARY  TARGET 

USERF 

581 

IF(FUCLA(IFUNF.2)  .EQ.  TRNF)  GO  TO  3110 

USERF 

582 

IF(FUCLA(IFUNF.3)  .EQ.  TRNF)  GO  TO  3130 

USERF 

583 

USERF 

584 

c 

NEITHER  DISREGARD 

USERF 

585 

USERF  = 1. 

USERF 

586 

RETURN 

USERF 

587 

USERF 

588 

c 

PRIMARY  TARGET 

USERF 

589 

3110 

IF(FUCLA( IFUNF. 1)  .GT.  3)  GO  TO  3120 

USERF 

590 

C 

NOT  YET  FIRED  CHANNGE  SED  TO  PR I 

USERF 

591 

USERF  = 0. 

USERF 

592 

RETURN 

USERF 

593 

USERF 

594 

C 

FIRE  CEASE  FIRE 

USERF 

595 

3120 

FUCLACIFUNF.B)  = 1. 

USERF 

596 

USERF  = 1. 

USERF 

597 

RETURN 

USERF 

598 

USERF 

599 

C 

SECONDARY  TARGET  CLEAR 

USERF 

600 

3130 

FUCLA(IFUNF,3)  = 0. 

USERF 

601 

RSTATC ITRNF)  * 4. 

USERF 

602 

USERF  = 1. 

USERF 

603 

RETURN 

USERF 

604 

USERF 

605 

USERF 

606 

USERF 

607 

C 

USER  FUNCTION  32 

USERF 

608 

USERF 

609 

c 

BRANCH  ON  AUTO  ENGAGE 

USERF 

610 

3200 

USERF  = 1. 

USERF 

611 

LTRN  * 0 

USER‘S 

612 

RETURN 

USERF 

613 

USERF 

614 

Figure  2{9).  Program  Listing:  USERF(JJ) 
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USERF 

615 

USERF 

616 

c 

USER  FUMCTIOM  33 

USERF 

617 

USERF 

618 

c 

CHECK  ALL  TRACKS 

USERF 

619 

3300 

USERF  = 1. 

USERF 

620 

LTRN  = LTRN  + 1 

USERF 

621 

IFCLTRN  .GT.  NTRK)  GO  TO  3309 

USERF 

622 

IF(RSTAT(LTRIi)  .GE.  3 .AMD. .MOT.AUTOE)  GO  TO  3300 

USERF 

623 

GO  TOC 3301. 3302. 3303, 3306),  RSTAT(LTRM) 

USERF 

624 

USERF 

625 

C 

ENGAGED  CHECK  IF  FRIENDLY 

USERF 

626 

3301 

IFCTRCLACLTRN, 1)  .NE.  3)  GO  TO  3300 

USERF 

627 

USERF 

628 

C 

SEND  CEASE  FIRE 

USERF 

629 

CALL  PUTIACl.FLOATCLTRN)) 

USERF 

630 

CALL  PUTIA(2,TRCLA(LTRN,4)) 

USERF 

631 

CALL  PUTIA(3,4.) 

USERF 

632 

GO  TO  3312 

USERF 

633 

USERF 

634 

c 

ENG/OUT  OF  RANGE  CHECK  IF  IN  RANGE 

USERF 

635 

3302 

IR  a LTRN  • 3 

USERF 

636 

CALL  CLOTRCLTRN. IFIXCTRCLACLTRN. 4) ). CLN, DMIN.TMIN. DIS) 

USERF 

637 

IFCDMIN  .GT.  30.)  GO  TO  3310 

USERF 

638 

IFCSSCIR)  .GT.  UNFRMCIS)  .OR. 

USERF 

639 

* IFIXCFUCLAC IFIXCTRCLACLTRN. 4)), 2))  .NE.  LTRN) 

USERF 

640 

* GO  TO  3300 

USERF 

641 

C 

SEND  IN  RANGE 

USERF 

642 

CALL  PUTIACl.FLOATCLTRN)) 

USERF 

643 

CALL  PUTIAC2,TRCLACLTRN,4)) 

USERF 

644 

CALL  PUTIAC3.G.) 

USERF 

645 

GO  TO  3312 

USERF 

646 

USERF 

647 

C 

ENG/HF  CHECK  IF  UNK  OR  HOST 

USERF 

648 

3303 

IFCTRCLACLTRN, 1)  .NE.  2)  GO  TO  3305 

USERF 

649 

USERF 

650 

C 

UNKNOWN  TARGET 

USERF 

651 

IFCTIGH)  GO  TO  3300 

USERF 

652 

USERF 

653 

C 

FREE  STATUS  CANCEL  HF 

USERF 

654 

3304 

CALL  PUTIACl.FLOATCLTRN)) 

USERF 

655 

CALL  PUTIAC2,TRCLACLTRN,4)) 

USERF 

656 

CALL  PUTIAC3,5.) 

USERF 

657 

GO  TO  3312 

USERF 

658 

USERF 

659 

C 

POSSIBLE  HOSTILE  TARGET 

USERF 

660 

3305 

IR  = LTRN  * 3 

USERF 

661 

IFCCTRCLACLTRN, 1)  .NE.  4)  .OR. 

USERF 

662 

* CSSCIR)  .GT.  UNFRMC15)))  GO  TO  3300 

USERF 

663 

GO  TO  3304 

USERF 

664 

USERF 

665 

C 

NOT  ENGAGED  CHECK  IF  NOT  HOSTIL 

USERF 

666 

3306 

IFCTRCLACLTRN, 1)  .NE.  4)  GO  TO  3308 

USERF 

667 

IR  = LTRN  * 3 

USERF 

668 

IFCSSCIR)  .GT.  UNFRMCIS))  GO  TO  3300 

USERF 

669 

USERF 

670 

C 

WITHIN  RANGE 

USERF 

671 

3307 

CALL  PUTIACl.FLOATCLTRN)) 

USERF 

672 

A = ASS IGC LTRN) 

USERF 

673 

IFCA  .EQ.  0.)  GO  TO  3300 

USERF 

674 

CALL  PUTIAC2.A) 

USERF 

675 

CALL  PUTIAC3.2.) 

USERF 

676 

CALL  PUTSAClO.l.) 

USERF 

677 

GO  TO  3312 

USERF 

678 

USERF 

679 

C 

CHECK  IF  NOT  UNK  OR  NOT  IN  RANGE 

USERF 

680 

3308 

IR  = LTRN  * 3 

USERF 

681 

IFC CSSCIR)  .GT.  UNFRMC16))  .OR. 

USERF 

682 

* CTRCLACLTRN.l)  .NE.  2.))  GO  TO  3300 

USERF 

683 

USERF  = 0. 

USERF 

684 

GO  TO  3307 

USERF 

685 

Figure  2(10).  Program  Listing;  USERF(JJ) 
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3310 

TRCLfl(LTRN.4)  = 0. 

USERF 

686 

RSTftT(LTRN)  = 4 

USERF 

687 

CALL  PUTIAd.FLQATCLTRN)) 

USERF 

688 

CALL  PUTIA(2,TRCLA(LTRN.4)) 

USERF 

689 

CALL  PUTIAO.l.) 

USERF 

690 

GO  TO  3312 

USERF 

691 

3309 

USERF  = 2. 

USERF 

692 

3312 

RETURN 

USERF 

693 

USERF 

694 

USERF 

695 

USERF 

696 

C 

USER  FUNCTION  34 

USERF 

697 

USERF 

698 

c 

ADUANCE  TRACK  COUNT  RETURN  FOR  ALL  TRACKS 

USERF 

699 

3400 

IPC  = IPC  + 1 

USERF 

700 

USERF  = 0. 

USERF 

701 

IFCIPC  .GE.  NTRK)  USERF  = 1. 

USERF 

702 

USERF 

703 

C 

STORE  TRACK  NO 

USERF 

704 

CALL  PUTIACl.FLOATCIPO) 

USERF 

705 

RETURN 

USERF 

706 

USERF 

707 

USERF 

708 

USERF 

709 

c 

USER  FUNCTION  35 

USERF 

710 

USERF 

711 

c 

INITIALIZE  STATE  UARIABLES 

USERF 

712 

3500 

CALL  GETIA(l.TRNK) 

USERF 

713 

ITRNK  = TRNK 

USERF 

714 

K = (ITRNK  * 3)  - 2 

USERF 

715 

USERF 

716 

SS(K)  = INROU(ITRNKtl) 

USERF 

717 

SS(K  + 1)  = INR0U(ITRNK,2) 

USERF 

718 

USERF 

719 

c 

UPDATE  POINTER 

USERF 

720 

PTR( ITRNK)  = TRR0U(PTR(ITRNK),4) 

USERF 

721 

USERF  = 0. 

USERF 

722 

USERF 

723 

c 

START  UNKNOWN  STATUS 

USERF 

724 

TRCLA(ITRNK.2)  = 2. 

USERF 

725 

TRCLA(ITRNK.3)  = -1. 

USERF 

726 

TRCLA( ITRNK. 1)  = 1. 

USERF 

727 

RETURN 

USERF 

728 

USERF 

729 

USERF 

730 

USERF 

731 

c 

USER  FUNCTION  36 

USERF 

732 

USERF 

733 

c 

ADUANCE  TRACK  ROUTE  AT  TIME 

USERF 

734 

3600 

CALL  GETIA(l.TRNK) 

USERF 

735 

PTRdFIXCTRNK))  = TRR0U(PTRdFIX(TRNK)),4) 

USERF 

736 

RETURN 

USERF 

737 

USERF 

738 

USERF 

739 

USERF 

740 

c 

USER  FUNCTION  37 

USERF 

741 

USERF 

742 

c 

UPDATE  STATUS  IF  NOT  IN  AUTO  MODES 

USERF 

743 

3700 

CALL  GET  I Ad,  TRNK) 

USERF 

744 

ITRNK  = TRNK 

USERF 

745 

IF(TRCLA(ITRNK,4)  .EQ.  -1.)  RETURN 

USERF 

746 

TYP  = TRTYP(PTTdTRNK).2) 

USERF 

747 

TRCLAdTRNK,2)  = TYP 

USERF 

748 

IF((TYP  .EQ.  2.  .AND.  AUTOI)  .OR. 

USERF 

749 

* (TYP  .EQ.  3.  .AND.  AUTOR)  .OR. 

USERF 

750 

* (TYP  .EQ.  4.  .AND.  AUTOR))  TRCLA( ITRNK, 1)  = TYP 

USERF 

751 

USERF 

752 

IF(TYP  .NE.  0.)  GO  TO  3710 

USERF 

753 

TRCLA( ITRNK, 1)  = 0. 

USERF 

754 

TRCLA(ITRNK,2)  = 0. 

USERF 

755 

TRCLA(ITRNK,3)  = 0. 

USERF 

756 

TRCLA(ITRNK,4)  = 0. 

USERF 

757 

TRMOD(ITRNK)  = 0. 

USERF 

758 

Figure  2(11).  Program  Listing:  USERF ( JJ) 
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3710 

CONTINUE 

USERF 

759 

IFCTYP  .EQ.  TRCLACITRNK. 1))  CALL  PUTSACIO. 1. ) 

USERF 

7B0 

PTT(ITRNK)  = TRTYP(PTT(ITRNK),3) 

USERF 

7ei 

RETURN 

USERF 

7S2 

USERF 

7B3 

USERF 

7B4 

USERF 

7B5 

C 

USER  FUNCTION  38 

USERF 

7BB 

USERF 

7B7 

C 

GET  NEXT  TIME  FROM  STORAGE 

USERF 

7B8 

3800 

CALL  GETIA(l.TRNI) 

USERF 

7B9 

USERF  = TRROU(PTR(IFIX(TRNI)),l) 

- TNOU 

USERF 

770 

RETURN 

USERF 

771 

USERF 

772 

USERF 

773 

USERF 

774 

C 

USER  FUNCTION  39 

USERF 

775 

USERF 

77B 

c 

GET  NEXT  TIME  FROM  STORAGE 

USERF 

777 

3900 

CALL  GETIACl.TRNI) 

USERF 

778 

USERF  = TRTYP(PTT(IFIX(TRNI)).l) 

- TNOU 

USERF 

779 

RETURN 

USERF 

780 

USERF 

781 

USERF 

782 

USERF 

783 

C 

USER  FUNCTION  40 

USERF 

784 

USERF 

785 

c 

IDLE  TIME 

USERF 

788 

4000 

USERF  = 10  * UNFRM(l) 

USERF 

787 

RETURN 

USERF 

788 

USERF 

789 

USERF 

790 

USERF 

791 

C 

USER  FUNCTION  41 

USERF 

792 

USERF 

793 

c 

SI  = TRK  TYPE  RETURN  IF  NOT  RAW 

DATA 

USERF 

794 

4100 

USERF  = TRCLA(IFIX(TRN),1) 

USERF 

795 

RETURN 

USERF 

798 

USERF 

797 

USERF 

798 

USERF 

799 

c 

USER  FUNCTION  42 

USERF 

800 

USERF 

801 

c 

ASSIGN  FU  TO  TRACK 

USERF 

802 

4200 

USERF  = ASSIGdFIXCTRN)) 

USERF 

803 

RETURN 

USERF 

804 

USERF 

805 

USERF 

808 

USERF 

807 

c 

USER  FUNCTION  43 

USERF 

808 

USERF 

809 

4300 

CALL  GETSAd.TR) 

USERF 

810 

IF((TR  .EQ.  5.).0R.(TR  .EQ.  0.)) 

GO  TO  4310 

ERR2 

18 

CALL  GETIACl.TRN) 

USERF 

812 

USERF  = TRCLAdFIX(TRN),l) 

USERF 

813 

RETURN 

USERF 

814 

4310 

USERF  * TR 

ERR2 

19 

RETURN 

USERF 

818 

USERF 

817 

USERF 

818 

USERF 

819 

C 

USER  FUNCTION  44 

USERF 

820 

USERF 

821 

4400 

RETURN 

USERF 

822 

USERF 

823 

USERF 

824 

USERF 

825 

Fiauro  2(12)  . 
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r* 

i 

i, 

l! 


' .1 » 

’ 3 ; 

i 1: 


t: 


C 

4600 


USER  FUCNTION  45 

USERF 

826 

USERF 

827 

CHECK  IF  POSSIBLE  HOOK  CLEPRIMC 

USERF 

828 

USERF  = 6. 

USERF 

829 

CALL  PUTSAdO.O.) 

USERF 

830 

CALL  GETSA(4,CFU) 

USERF 

831 

ICFU  = CFU 

USERF 

832 

IFCICFU  .EQ.  4 .OR. 

USERF 

833 

* ICFU  .EQ.  6 .OR. 

USERF 

834 

* ICFU  .EQ.  8)  GO  TO  4510 

USERF 

835 

USERF  = 5. 

USERF 

836 

RETURN 

USERF 

837 

USERf^ 

838 

CHECK  FOR  SAME  TRACK 

USERF 

839 

CALL  GETIAd.CTR) 

USERF 

840 

ICTR  = CTR 

use:.', 

841 

IF(CTR  .NE.  TRN)  RETURN 

. ;erf 

842 

IF(TRCLAdCTR.l)  .EQ.  2. 

.OR. 

USERF 

843 

• TRCLACICTRd)  .EQ.  3. 

.OR. 

USERF 

844 

* TRCLAdCTR.l)  .EQ.  4.) 

USERF  = TRCLAdCTR.l) 

USERF 

845 

RETURN 

USERF 

846 

USERF 

847 

USERF 

848 

USERF 

849 

USER  FUNCTION  46 

USERF 

850 

USERF 

851 

CHECK  FOR  SAME  TRACK 

USERF 

852 

USERF  = 5. 

USERF 

853 

GO  TO  4510 

USERF 

854 

END 

USERF 

855 

USERF (JJ) 


f I 


k1 

: ^ 

N 

I ’9 


Moderator  Function  1 


Moderator  function  1 is  called  by  task  1.  It  calculates 
the  task  performance  time  and  determines  which  symbol  the 
operator  will  process  next.  The  function  first  checks  to  see 
if  there  are  any  continuation  tracks,  that  is,  those  that 
the  operator  was  processing  and  cf  sed  the  ID  to  change  and  so 
will  continue  processing  under  the  new  ID.  If  there  are  any 
tracks  of  this  type,  the  task  performance  time  is  set  to  0 and 
the  subroutine  SETTR  is  called  to  store  the  choice.  If  there 
are  no  continuation  jobs,  subroutine  SETV  is  called.  This 
assigns  a value  to  each  symbol.  These  values  are  then  summed 
and  stored  in  the  variable  STOP.  An  additional  value  is  added 
to  reflect  not  selecting  any  symbol.  The  partial  sums  of  the 
values  are  compared  to  a random  number  in  order  to  choose  the 
specific  symbol  to  process.  If  no  symbol  is  found,  the  moderator 
function  chooses  the  idle  time  task.  Task  performance  time  is 
then  computed  and  is  based  on  the  total  value  which  reflects 
the  number  and  importance  of  the  symbols  appearing  on  the  scope. 

Moderator  Function  2 

Moderator  function  2 is  called  by  task  50.  This  function 
records  the  firing  of  missiles. 

Moderator  Function  3 

Moderator  function  3 is  called  by  task  47.  This  function 
attaches  the  track  to  a fire  unit.  It  updates  the  fire  unit 
and  track  status  arrays.  To  do  this,  it  first  determines 
whether  the  track  is  a primary  or  secondary  assignment  for  the 
fire  unit  and  updates  the  corresponding  cells  in  the  array. 
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Moderator  Function  4 

Moderator  function  4 is  called  by  task  49.  It  updates  the 
status  of  the  fire  unit  engaged.  In  addition,  it  resets  the 
value  of  RSTAT  to  1 indicating  that  the  track  is  engaged. 

This  function  would  not  be  necessary  except  for  the  reengagement 
or  restarted  engagements  that  are  processed  by  the  firing  unit. 
For  example,  tracks  that  are  being  held  because  of  the  distance 
factor  will  be  sent  to  this  task  to  be  reengaged  when  they  are 
within  range.  This  function  then  updates  their  status  so  that 
the  system  immediately  knows  that  they  are  being  processed. 

Moderator  Function  5 

Moderator  function  5 is  called  by  task  66.  This  function 
is  used  to  partially  initialize  the  tracks.  It  is  done  at  time  0 
and  sets  the  task  performance  time  so  that  task  66  is  finished 
when  the  track  is  scheduled  to  appear  on  the  scope.  It  adjusts 
the  SS  variables  so  that  they  are  well  out  of  range  of  the  scope 
and  saves  the  initial  location  where  the  track  will  appear, 
on  the  scope.  It  sets  the  velocities  to  0 so  that  the  target 
will  remain  stationary  until  it  appears. 

Moderator  Function  6 

Moderator  function  6 is  called  by  all  tasks.  It  is  used 
to  keep  a running  account  of  the  operator's  procedures.  The 
function  first  checks  to  see  if  the  task  is  indeed  an  operator 
task.  If  it  is  not,  the  function  returns.  If  it  is  an  operator 
task,  it  is  classified  into  eight  possible  categories.  These 
categories  are  saved  as  well  as  the  task  number  that  caused  the  action; 


if  a track  is  involved,  the  track  number  is  recorded;  or  if  a 
fire  unit  is  involved,  the  fire  unit  number  is  recorded.  The 
function  then  returns  control  to  the  calling  task. 


Moderator  Function  7 

Moderator  function  7 may  be  called  by  task  73.  It  is  used 
when  an  operator  trace  output  is  desired  at  regular  intervals. 
The  function  first  checks  all  tracks  and  records  their  status. 
It  then  does  the  Scime  for  all  fire  units.  The  time  is  changed 
from  seconds  to  minutes  and  seconds.  It  then  decides  if  the 
operator  is  currently  looking  at  a track  or  a fire  unit,  since 
there  is  a different  output  format  for  each.  Once  these  are 
printed,  the  function  returns  control  to  the  calling  task. 


Moderator  Function  8 

Moderator  function  8 may  be  called  by  any  task  to  cause 
the  operator  trace  to  be  printed  out  at  the  beginning  of  each 
task.  This  function  branches  to  moderator  function  7,  so  the 
output  is  identical.  At  present,  moderator  function  8 is  called 
by  tasks  1,  2,  3,  4,  6,  7,  8,  9,  10,  11,  12,  13,  15,  19,  20, 

21,  22,  23,  25,  26,  27,  28,  29,  30,  31,  32,  33,  34,  and  35. 


Moderator  Function  9 

Moderator  function  9 is  called  by  tasks  8 and  13.  It 
sets  the  value  of  TRCH  to  true,  which  indicates  to  moderator 
function  10  that  there  is  a possible  change  in  the  status  of 
the  track. 


25,  28,  35,  45,  61,  and  68.  It  is  used  to  collect  the  user 
statistics.  First,  a branching  is  made  according  to  the  calling 
task.  Then,  the  time  since  the  last  event  is  figured  and 
recorded  by  calls  to  subroutines  UCLCT  and  UHIST.  The  new  time 
is  set  and  the  new  calssification  is  stored.  If  there  is  no 
possible  change  in  track  status,  the  function  returns  to  the 
calling  task.  If  there  was  a possible  change,  the  function 
checks  all  tracks  for  an  actual  change.  If  there  was  a change 
in  status,  statistics  are  collected  by  a call  to  subroutine  UCLCT 
recording  how  much  time  has  elapsed  from  the  time  the  target 
originally  appeared  as  video  data.  A call  is  made  to  subroutine 
UTMST  to  record  operator  efficiency.  In  addition,  this  moderator 
function  is  used  by  tasks  61  and  68  for  initializing  the  track 
statistics . 

Moderator  Function  11 

Moderator  function  11  is  called  by  tasks  46  and  49.  It  is 
used  to  update  the  status  of  the  fire  unit  to  record  their 
overall  usage.  This  is  done  by  a call  to  UTMST. 

Moderator  Function  12 

Moderator  function  12  is  called  by  tasks  51  and  53.  It  is 
used  to  record  the  eunount  of  time  a fire  unit  is  used.  This  is 
done  by  a call  to  subroutine  UTMST. 


Moderator  Function  13 

Moderator  function  13  is  called  by  task  74.  It  is  used 
to  record  the  number  of  effective  firings  that  a fire  unit  has 
on  all  targets  assigned  to  it  during  the  run.  This  is  accom- 
plished by  a call  to  subroutine  UHIST. 


Moderator  Function  14 

Moderator  function  14  is  called  by  task  74.  It  is  used  to 
record  the  time  to  the  effective  shooting  of  the  track.  It 
uses  that  portion  of  moderator  function  10  that  dealt  with  track 
changes. 
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SUBROUTINE  MODRF(MFNt'NNODE) 

MODRF 

1 

REAL  TRCLA(33.5).FUCLA(llf3) 

UCOMl 

1 

COMMON  /UCOMl/-  TRCLA.FUCLA 

UCOMl 

2 

REAL  TRSTA(44.3).T!5!R0U(155.4).I NRCU ( 33 , S ) . TR'^YP C 33 . 3 ) 

UCOMl 

3 

UC0M2 

1 

COMMON  /-UCOMS^  TRSTA. TRROUf INROUf TRTYP 

UC0M2 

2 

i 

1 NTEGER  P A I R ( 33 ) . TR  ( 33 ) , PTT  ( 33 ) . RSTAT  C 33 ) 

UC0M2 

3 

UC0M3 

1 

COMMON  /:JC0M3/'  PTft.PTT.RSTAT.PAIR 

UC0M3 

2 

LOG I CAL  AUTO I . AUtOR . AUTOE . T I GH 

UC0M3 

3 

UC0M4 

1 

COMMON  /'UC0M4^  ApTOIt  AUTOR.  AUTOE tTIGH 

J 

UC0M4 

2 

UC0M4 

3 

REAL  UALUE(SO),STI(SO).STOT 

UC0M5 

1 

COMMON  /UCOMS/  WALUE. STI, STOT 

UC0M5 

2 

UC0M5 

3 

INTEGER  TYHOOK.,SEQT,PSEQ 

UCOMG 

1 

COMMON  /UCOMB/  /TYHOOK. SEQT. PSEQ 

UCOMB 

2 

UCOMG 

3 

INTEGER  NFU.NTj^FU.NTRK 

UC0M7 

1 

COMMON  /UC0M7/;  NFU.NTRFU.NTRK 

UC0M7 

2 

UC0M7 

3 

UC0M7 

4 

; 

UC0M7 

5 

REAL  CX(33).CY(33) 

UC0M8 

1 

INTEGER  IPTR(a3).IPTT(33) 

UC0M8 

2 

COMMON  /UCOMS^  CX. CY, IPTR, IPTT. IPC 

UC0M8 

3 

UC0M8 

4 

LOGICAL  TRCH  : 

UC0M9 

1 

REAL  TRMOD ( 33 ) , TOTRT ( 33 ) , TMARK . TMARE 

UC0M9 

2 

INTEGER  NOLDTY.LPAGE 

UC0M9 

3 

COMMON  /UCQM9/  TRCH, TRMOD. TOTRT, TMARK. TMARE. LPAGE.NOLDTY 

UC0M9 

4 

MODRF 

3 

COMMON  /CQMOG/  TNOW.TTNEX.MFAD.SEED. ISEED.NCRDR.NPRNT.NPUNCH, 

COMOG 

1 

NRN I T , NRENT , MNDC , NDC , NDTN . NNTC 

COMOG 

2 

COMMON  /C0M17/  SS(100).SSL(100),DD(100),DDL(100),LLSUR(100,2) 

COM  17 

1 

COMMON  /COMSS/  TTIME.PFIRB 

C0M22 

1 

MODRF 

7 

INTEGER  L JFUL (11), L JTRL ( G ) , L JTRK( 33 ) . L JFU (10) 

MODRF 

8 

DATA  LJFUL/IH  , IHU, IHA, IHX. IHF. IHE, IHI . 1H2, IHD, 

MODRF 

9 

IHC, IH*/ 

MODRF 

10 

DATA  LJTRL/IH  , IHR. IHU, IHF, IHH, IHS/ 

MODRF 

11 

DATA  LJTRK/33*1H  / 

MODRF 

12 

DATA  LJFU/'10*1H  ^ 

MODRF 

13 

MODRF 

14 

INTEGER  MROUT(100),IRTY(5) 

MODRF 

IS 

DATA  MROUT ( 1 ) , MROUT ( 2 ) . MROUT ( 3 ) , MROUT (9 ) , MROUT (21), MROUT ( 25 ) , 

MODRF 

IG 

MROUT ( 28 ) . MROUT ( 1 5 ) . MROUT ( 35 ) , MROUT ( 45 ) , MROUT ( G 1 ) . 

MODRF 

17 

MROUT(G8)/1.S,3.4.5,G.7,8.9.10. 11.12/ 

MODRF 

18 

DATA  IRTY/13,99, 10,11,12/ 

MODRF 

19 

MODRF 

SO 

MODRF 

21 

GO  TO  (100.200.300,400,500.800.700,800,900, 

MODRF 

22 

1000.1100,1200,1300,1400),  MFN 

MODRF 

S3 

MODRF 

24 

MODRF 

25 

MODRF 

SG 

MODERATOR  FUNCTION  1 

MODRF 

27 

FIND  CONTINUE  TRACKS 

MODRF 

28 

DO  110  I = l.NTRFU 

MODRF 

29 

TRN  = TRSTAd.l) 

MODRF 

30 

IF(TRSTA(I,3)  .LT.  0.)  140 

MODRF 

31 

MODRF 

32 

NO  CONTINUE  JOBS  FIND  TOTALS 

MODRF 

33 

CALL  SETU 

MODRF 

34 

MODRF 

35 

SUM  TOTALS 

MODRF 

3S 

STOT  = 0. 

MODRF 

37 

DO  120  I = l.NTRFU 

MODRF 

38 

STOT  = TRSTA(I,3)  + STOT 

MODRF 

39 

Piguro  3(1).  Progran  Listing:  f'.ODRF  (nri; ,NNODE) 
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MODRF 

40 

c 

ADD  IDLE  TIME 

MODRF 

41 

STOT  ■ STOT  ♦ 10. 

MODRF 

4E 

MODRF 

43 

c 

FIND  NEXT  TRN 

MODRF 

44 

DIS  » LiNFRIld)  • STOT 

MODRF 

43 

UAL  » 0. 

MODRF 

46 

DO  130  I ■ l.NTRFU 

MODRF 

47 

UAL  » UAL  ♦ TRSTA(If3) 

MODRF 

48 

IFCUAL  .LT.  DIS)  SO  TO  130 

MODRF 

49 

MODRF 

50 

c 

STORE  TRACK  AND  ROUTE 

MODRF 

51 

CALL  SETTRCTRSTACId)) 

MODRF 

52 

TTIME  * UNFRM(2)  * (100.  ^ STOT) 

MODRF 

53 

TRSTA(I,2)  » TNOU 

MODRF 

54 

RETURN 

MODRF 

55 

MODRF 

56 

130 

CONTINUE 

MODRF 

57 

MODRF 

58 

c 

DEFALTS  TO  IDLE  TIME 

MODRF 

59 

CALL  PUTSAd.O.) 

MODRF 

60 

TTIME  ■ UNFRM(2)  * dOO.  / STOT) 

MODRF 

61 

RETURN 

MODRF 

62 

MODRF 

63 

c 

CONTINUATION  JOB 

MODRF 

64 

140 

J = IFIX(TRN)  + NFU 

MODRF 

65 

TRSTA(J,3)  = 0. 

MODPF 

66 

TTIME  = 0. 

MODRF 

67 

CALL  SETTR(TRN) 

MODRF 

68 

RETURN 

MODRF 

69 

MODRF 

70 

MODRF 

71 

MODRF 

72 

C 

MODERATOR  FUNCTION  2 

MODRF 

73 

MODRF 

74 

200 

CALL  GETIA(2.FN) 

MODRF 

75 

CALL  UHIST(FN.2) 

MODRF 

76 

RETURN 

MODRF 

77 

RETURN 

MODRF 

78 

MODRF 

79 

MODRF 

80 

MODRF 

81 

c 

MODERATOR  FUNCTION  3 

MODRF 

82 

MODRF 

83 

c 

DETERMIN  IF  PRIMARY  OR  SECONDARY  TRACK 

MODRF 

84 

300 

CALL  GETIAd.TRN) 

MODRF 

85 

CALL  GETIA(2,FN) 

MODRF 

86 

ITRN  = TRN 

MODRF 

87 

IFUN  = FN 

MODRF 

88 

IFCIFUN  .EQ.  0)  GO  TO  320 

ERR2 

1 

PAIRdTRN)  = IFUN 

ERR2 

2 

RSTAT(ITRN)  = 1 

MODRF 

89 

MODRF 

90 

IF(FUCLA(IFUN.2)  .NE.  0.)  GO  TO  310 

MODRF 

91 

MODRF 

92 

C 

THIS  IS  PRIMARY  SET  STATUS  RECORD  TR  AND  FU  MODRF 

93 

FUCLA(IFUN.l)  = 2. 

MODRF 

94 

FUCLA(IFUN,2)  = TRN 

MODRF 

95 

TRCLA(ITRN,4)  = FN 

MODRF 

96 

RETURN 

MODRF 

97 

MODRF 

98 

C 

SECONDARY  TRACK  RECORD  TR  Ar<D  FU 

MODRF 

99 

310 

FUCLA(IFUN.3)  = TRN 

MODRF 

100 

TRCLA(ITRN.4)  = FN 

MODRF 

101 

RETURN 

MODRF 

102 

C 

NO  FU  WAS  AUAILABLE 

ERR2 

3 

320 

TTIME  = 0. 

ERR2 

4 

RETURN 

ERR2 

5 

MODRF 

103 

MODRF 

104 

MODRF 

105 

0 


figure  3(2).  Program  Listing 


modrf(!ifn,:;nodl) 
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MODERATOR  FUNCTION  4 

SET  FU  STATUS 
CALL  GETIAO.FN) 
FUCLA(IFIX(FN).l)  * 3 
CALL  GETIACl.TRN) 
RSTATCIFIXCTRN))  = 1 
RETURN 


MODERATOR  FUNCTION  5 

SET  TIME  FOR  TRACK  TO  APPPEAR 
CALL  GETIA(l.TRN) 

ITRN  = TRN 

TTIME  = TRROU(PTR(IFIX(TRN))tl) 

SET  STATE  UARIABLES 
K = (ITRN  * 3)  - 2 
SS(K)  = 1000. 

SS(K  + 1)  = 1000. 

SS(K  + 2)  = 1000000. 

SET  TRACK  STATUS 
K = NFU  + ITRN 
TRSTACK, 1)  = TRN 
TRSTA(K,2)  = TTIME 

SET  TRACK  CLASIFICATION 
DO  510  I = lf5 

TRCLA(ITRN.I)  = 0. 

SET  INITIAL  COORD 
INROUCITRN. 1)  = TRR0U(PTR(ITRN).2) 
INROUCITRN.E)  = TRR0U(PTR(ITRN).3) 
TRR0U(PTR(ITRN).2)  = 0. 
TRR0U(PTR(ITRN),3)  * 0. 

RETURN 


MODERATOR  FUNCTION  S 

CONTINUE 
LJHOK  = IH 

IF(NNODE  .GT.  34)  GO  TO  610 

GO  TO  (601 >602, 603. 603. 603. 603.603* 803.604. 604.604. 604. 604. 604f 
» 605. 605. 805. 605. 605.605.606. 606,606. 606. 607. 607.607. 

» 608.608.608.608.608.608.608).  NNODE 

LJTYP  = 3HSER 
LJTRN  = 0 
LJTSK  = NNODE 
RETURN 

LJTYP  = 3HIDL 
LJTRN  = 0 
LJTSK  = NNODE 
RETURN 

LJTYP  = 3H0BR 
CALL  GETIA(l.A) 

LJTSK  = NNODE 
LJTRN  = A 
RETURN 

LJTYP  = 3H0BU 
LJTSK  = NNODE 
CALL  GETlAd.A) 

LJTRN  = A 
RETURN 

Figure  3(3).  Program  Licting:  MODRF (MFN , NNODE) 
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605  LJTYP  = 3HASS 
CALL  GETIACl.A) 

LJTRN  = A 
LJTSK  = NNODE 
RETURM 

BOB  LJTYP  = 3H0BF 
CALL  GETIACl.A) 

LJTRN  = A 
LJTSK  = NNODE 
RETURN 

B07  LJTYP  = 3H0BH 
CALL  GETIACl.A) 

LJTRN  = A 
LJTSK  = NNODE 
RETURN 

608  LJTYP  = 3H0FU 
CALL  GETIAC2.A) 

LJTRN  = -A 

IFCA  .EQ.  0.)  LJTRN  » -11 

LJTSK  = NNODE 

RETURN 

610  IFCNNODE  .LT.  46)  LJHOK  » IH* 
RETURN 


: MODERATOR  FUNCTION  7 

700  DO  710  I * l.NTRK 

710  LJTRKCI)  = LJTRLCIFIXCTRCLACI.D)  + 1) 
DO  720  I = l.NFU 

720  LJFUCI)  * LJFULCIFIXCFUCLACI.D)  + 1) 

ALJTA  = AMODCTNOW.60.) 

LJTB  » IFIXCTNOW)  / 60 
IFCLPAGE  .GT.  55)  LPAGE  » 0 
IFCLPAGE  .EQ.  0)  URITE  16.5002) 

LPAGE  » LPAGE  + 1 
IF C LJTRN  .LT.  0)  GO  TO  730 
LJA  * LJTRN 

LJB  = LJTRLCIFIXCTRCLACLJA. D)  + 1) 

LJC  = SSCLJA  * 3) 

LJD  » TRCLACLJA.4) 

WRITEC6. 5000 ) LJTB. ALJTA. LJTYP. LJHOK. LJTSK. 

* LJA.LJB.LJC.LJD.LJTRK.LJFU 
RETURN 

730  CONTINUE 

LJA  * -LJTRN 

IFCLJTRN  .EQ.  -11)  LJA  = 0. 

LJB  » LJFULCIFIXCFUCLACLJA.D)  + 1) 

LJC  = FUCLACLJA.2) 

LJD  = FUCLACLJA.3) 

WR I TE  C 6 . 50 0 1 ) L JTB . ALJTA . LJTYP . LJHOK . LJTSK . 

* LJA.LJB.LJC.LJD.LJTRK.LJFU 


RETURN 


13. GH  AFU-.I2.7X.33A1.5X.10A1) 
riH  .I4,FG.2.3X.A3.A1.I4.5H  FU-. 
12. 5H  S-.I2.9X.33A1.5X.10A1) 


C MODERATOR  FUNCTION  8 

C PRINT  OUT  TASK  STARTS 
800  GO  TO  700 
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Figure  3(4).  Program  Listing:  MODRF  (.MFN, NNODE) 
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C MODERATOR  FUNCTION  9 

C SET  BRANCH  FOR  POSSIBLE  TRACK  TVPE  CHANGE 
900  TRCH  = .TRUE. 

RETURN 


C MODERATOR  FUNCTION  10 

C BRANCH  FOR  CORRECT  NODE 

1000  GO  TOClOOl.lOOa. 1003. 1004.1005.1008. 1007. 1008. 1009> 
* 1010.1030.1040).  MROUT(NNODE) 


1 [! 

1 Ll 


NNEWTY 
GO  TO 
NNEWTY 
GO  TO 
NNEWTY 
GO  TO 
NNEWTY 
GO  TO 
NNEWTY 
GO  TO 
NNEWTY 
GO  TO 
NNEWTY 
GO  TO 
NNEWTY 
GO  TO 
TMARH 
RETURN 


= 1 
1020 
= 2 
1020 
= 3 
1020 
= 4 
1020 
= 5 
1020 
= 6 
1020 
= 7 
1020 
= 8 
1020 
= TNOW 


TMARH  * TNOW  - TMARH 
CALL  UCLCT(TMARH.9) 

CALL  UHIST(9..1) 

RETURN 

TMARK  * TNOW  - TMARK 
CALL  UCLCT ( TMARK . NOLDTY ) 

CALL  UH I ST ( FLO AT ( NOLDTY).!) 

TMARK  * TNOW 
NOLDTY  = NNEWTY 
IF (TRCH)  GO  TO  1030 
RETURN 

TRCH  = .FALSE. 

T = 0. 

DO  1034  I * l.NTRK 
K * 3 * I 

IF(SS(K)  .GT.  500)  GO  TO  1034 
IF(TRMOD(I)  .EQ.  TRCLA(I.l))  GO  TO  1033 
TMARE  = TNOW  - TOTRT(I) 

TRMOD(I)  = TRCLA(I.l) 

DO  1031  J = 1.5 
RJ  = J - 1 
ITY  = IRTY(J) 

IF(TRMOD(I)  .EQ.  RJ)  GO  TO  1032 
CONTINUE 

CALL  UCLCT (TMARE. ITY) 

IF(TRCLA(I.l)  .NE.  TRCLA(I.2))  T * 1. 
CONTINUE 

CALL  UTMST(T.TNOW.l) 

RETURN 

CALL  GETIAd.TN) 

ITN  = TN 

IF(TRCLA(ITN.3)  .NE.  -1.)  GO  TO  1030 
TRCLA(ITN.3)  = 0. 

CALL  UTMST(l..TNOW.l) 
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Figure  3(5).  Program  Listing:  MODRF  (MFN,Ni:ODC) 


MODRF 

324 

1041 

TRMOD(ITN)  = 1. 

MODRF 

325 

TOTRT(ITN)  = TMOU 

MODRF 

32S 

RETURN 

MODRF 

327 

MODRF 

328 

MODRF 

329 

MODRF 

330 

C 

MODERATOR  EUNCTIOM  11 

MODRF 

331 

MODRF 

332 

c 

START  ALL  FIRE  UMITS 

MODRF 

333 

1100 

CALL  GETIA(2,FM) 

MODRF 

334 

IFN  * FN 

MODRF 

335 

IFdFN  .EO.  0)  RETURM 

MODRF 

33G 

CALL  UTMST(l..TNOW. (IFN  +1)) 

MODRF 

337 

RETURN 

MODRF 

338 

MODRF 

339 

MODRF 

340 

MODRF 

341 

c 

MODERATOR  FUNCTION  12 

MODRF 

342 

MODRF 

343 

c 

STOP  ALL  FIRE  UNITS 

MODRF 

344 

laoo 

CALL  GETIA(2.FN) 

MODRF 

345 

IFN  * FN 

MODRF 

346 

IFdFN  .EQ.  0)  RETURN 

MODRF 

347 

CALL  UTNST(0.,TNOU. (IFN  +1)) 

MODRF 

348 

RETURN 

MODRF 

349 

MODRF 

350 

MODRF 

351 

MODRF 

352 

c 

MODERATOR  FUNCTION  13 

MODRF 

353 

MODRF 

354 

c 

RECORD  EFFECTIUE  FIRE  UNITS 

MODRF 

355 

1300 

CALL  GETIA(2.FN) 

MODRF 

35G 

IFN  = FN 

MODRF 

357 

IFdFN  .EQ.  0)  RETURN 

MODRF 

358 

CALL  UHIST(FN,3) 

MODRF 

359 

RETURN 

MODRF 

360 

MODRF 

361 

MODRF 

362 

MODRF 

363 

c 

MODERATOR  FUNCTION  14 

MODRF 

364 

MODRF 

365 

c 

RECORD  AUTO  TRACK  CHANGES 

MODRF 

366 

1400 

GO  TO  1030 

MODRF 

367 

5002 

FORMAT! 1H1/19X, 4HTASK. 40Xf 10( IHl ) . 10( 1H2) , 4H3333. 14X, IHl/ 

MODRF 

368 

* 4X, 18HT  I M E JOB  N0.32X.3(10H12345G7890),3H123.5X, 

MODRF 

369 

* 10H12345G7830^) 

MODRF 

370 

END 

MODRF 

371 

Figure  3(6) 


Program  Listing: 


MODRF (MFN,NNODE) 


0 

' 0 


f 


• I 

[: 


f ^ 

I . 
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Variable 

Name 


AUTOE 


AUTOI 


AUTOR 


CX(I) 

1=1,33 

CY  (I) 
1=1,33 

PUCLAd,  J) 
1=1,11 
J=l,9 


INROUd,  J) 
1=1,33 
J=l,2 

IPC 
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Table  V 


GLOBAL  USER  VARIABLES 


User 

Common 

Block  Definition 

4 The  auto/manual  track  engagement 

indicator . 

4 The  auto/manual  track  initiate  indicator. 

4 The  auto/manual  track  interrogate 

indicator . 


8 

8 

1 


2 


8 


Stores  the  initial  X-coordinate  of 
track  I for  multiple  runs. 

Stores  the  initial  Y-coordinate  of 
track  I for  multiple  runs. 


The  status  array  for  fire  unit  I,  1=1,10. 
J=l:  fire  unit  status 
1;U  = unused 
2:A  = accessed 
3:X  = engaged 
4:F  = firing 
5:E  = effective 
6:1  = ineffective 
7 : Z = not  operational 
8:D  = disengage 
9:C  = hold  fire 
10:*  = blinking 
J=2:  primary  track  number 
J=3 : secondary  track  number 
J=4:  location  of  X-coordinate 
J=5;  location  of  Y-coordinate 
J=6:  cease  fire  flag 
J=7 : hold  fire  flag 
J=8:  initial  weapons  count 
J=9:  effectiveness  ratio 

The  initial  location  of  the  track. 

J=l:  X-coordinate 
J=2:  Y-coordinate 

Used  by  task  61  to  count  tracks 
initialized. 


’J 


IPTRd) 

1=1,33 


8 


Stores  the  initial  route  pointer  for 
track  I for  multiple  runs. 


fT"^ 

^ “ -f 

121 

1 , 

Table  V 

(continued) 

i 

1 i 

Variable 

Name 

Common 

Block 

i 

Definition 

h 

IPTT(I) 

1=1,33 

8 

Stores  the  initial  status  pointer  for 
track  I for  multiple  runs. 

1- 

LPAGE 

9 

Used  to  count  page  lines. 

NFU 

7 

The  total  number  of  fire  units. 

NOLDTY 

9 

Stores  operator  task  classification 
to  collect  statistics. 

NTRFU 

7 

The  total  number  of  fire  units  (NFU)  | 

plus  the  total  number  of  tracks  (NTRK) . 

t 

[i 

NTRK 

7 

The  total  niomber  of  tracks. 

PAIR(I) 

1=1,33 

3 

The  fire  unit  number  that  is  attached 
with  track  I . 

(11  - not  attached) 

PSEQ 

6 

The  current  sequence  category  for  the 
system. 

PTR(I) 

1=1,33 

3 

The  current  pointer  to  the  routing  ; 

information  (TRROU)  for  track  I.  • 

PTT{I) 

1=1,33 

3 

The  current  pointer  to  the  identi- 
fication status  update  information 
(TRTYP)  for  track  I. 

1 

RSTAT(I) 

1=1,33 

3 

The  automatic  status  used  by  task  63. 

1 = engaged 

2 = range-hold  fire 

3 = hold  fire  message 

4 = other 

* 

SEQT 

6 

The  sequence  hook  category.  ! 

0 = track  and  fire  unit 

1 = track 

2 = fire  unit 

3 = hostile  track  and  fire  unit  i ; 

4 = hostile  track  |,s  ! 

< 

Li 

ssd) 

COM17 

1=1  mod  3:  location  (X-coordinate) 

1=2  mod  3:  location  (Y-coordinate)  1 

1=0  mod  3;  range  (center/fire  unit) 

*•  r ' 

STI (I) 
1=1,20 

5 

The  visual  stimulation  provided  by  • „ 

each  type  of  symbol  (see  "Visual 

Value"  page)  . 

1, 

li 

STOT 

5 

The  total  value  figured  in  moderator  r 

function  1 . 

i 

Table  V (continued) 
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Variable 

Ncime 

Common 

Block 

Definition  i 

TIGH 

4 

The  tight/free  policy  indicator. 

TMARE 

9 

Interval  marker  for  collecting 
statistics  on  track  status. 

TMARK 

9 

Interval  marker  for  collecting 
statistics  on  operator  tasks. 

TOTRT ( I ) 
1=1,33 

9 

Stores  the  time  the  track  appeared  on 
the  scope  to  collect  statistics. 

TRCH 

9 

Indicator  for  possible  track  update. 

TRCLAd,  J) 
1=1,33 

J=l,5 

1 

The  status  array  for  track  I. 

J=l:  observed  classification 

J=2;  real  classification 

J=3:  last  observed  classification 

J=4:  assigned  fire  unit  number 

TRMOD (I) 
1=1,33 

9 

Stores  track  identification  status  to 
collect  statistics. 

TRROU (I, J) 
1=1,155 
J=l,4 

2 

The  routing  information  for  all  tracks. 

J=1 : next  turn  time 

J=2:  current  velocity  (X-coordinate) 

J=3:  current  velocity  (Y-coordinate) 

J=4 : pointer  to  next  line 

TRSTAd,  J) 
1=1,44 

J=l,3 

2 

The  current  value  of  each  symbol. 

J=1 : track/fire  unit  number 

J=2:  time  last  observed 

J=3:  value  of  symbol 

TRTYP (1, J) 
1=1,33 

J=l,3 

2 

1 

The  identification  status  update  f 

information. 

J=1 : next  change  time 

J=2:  next  type 

J=3:  pointer  to  next  line 

TYHOOK 

6 

The  hooking  policy  used  during  a 
simulation  run. 

0 = sequence 

1 = position/number 

2 = tab 

VALUE (1) 
1=1,20 

5 

The  significant  value  associated  with 
each  type  of  symbol  (see  "Visual  Value" 

page)  . 


[ ' [1 

1 

I ^ 


Variable 
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Table  VI 


LOCAL  USER  VARIABLES 


Name 

Subroutine 

Definition 

BFU 

ASSIG 

The  fire  unit  with  the  smallest 
distance  to  the  given  track. 

BV 

ASSIG 

The  smallest  distance  from  the  given 
track  to  a usable  fire  unit. 

CLV 

CLOTR 

The  closing  velocity  between  the 
given  track  and  fire  unit. 

DIS 

CLOTR 

The  current  distance  between  the 
given  track  and  fire  unit. 

FN 

MODRF 

Fire  unit  number  being  processed.  (Real) 

FN 

USERF 

Operator's  fire  unit  number.  (Real) 

FNF 

USERF 

Fire  unit's  fire  unit  nximber.  (Real) 

GTRN 

NHOOK 

Track  or  fire  unit  number  of  the 
desired  symbol.  (Real) 

IFUN 

MODRF 

Fire  unit  number  being  processed. 
(Integer) 

IFUN  1 

i USERF 

Operator's  fire  unit  number.  (Integer) 

IFUNF 

USERF 

Fire  unit's  fire  unit  number.  (Integer) 

ITRN 

MODRF 

Track  number  being  processed.  (Integer) 

ITRN 

USERF 

Fire  unit/operator  track  number . (Integer) 

ITRNK 

USERF 

System's  track  number.  (Integer) 

LDIS 

SETV 

An  occurrence  flag  used  to  calculate  the 
symbol  value. 

TRUE  = long  range 

LJFU(I) 

1=1,10 

MODRF 

Used  to  print  status  of  all  ten  possible 
fire  units  in  trace  output. 

LJFUL(I) 

1=1,11 

iMODRF 

Contains  the  possible  fire  unit  status 
symbols  used  in  trace  output. 

i I 

1 


t 


. J 


.1 


LJTRN 


MODRF 


Stores  track  number  operator  is 
processing  for  trace  output. 


TII?33r 


i : 


i i . 


i 


i , 
I . 


Table  VI  (continued) 
Variable 
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Name 

Subroutine 

Definition 

LJTSK 

MODRF 

Stores  the  operator  task  number 
for  trace  output. 

LJTRIL(I) 

1=1,33 

MODRF 

Used  to  print  status  of  all  33  possible 
tracks  in  trace  output. 

LJTRL(I) 

1=1,6 

MODRF 

Contains  the  possible  track  status 
symbols  used  in  trace  output. 

LJTYP 

MODRF 

Stores  type  job  operator  is  starting 
for  trace  output. 

LOLD 

SETV 

An  occurrence  flag  used  to  calculate 
the  symbol  value. 

TRUE  = has  been  observed  in  this 
status  before 

LP 

ASSIG 

Flag  - TRUE  if  the  fire  unit  already 
has  a primary  assignment. 

MIND 

CLOTR 

The  minimum  distance  achieved  by  the 
given  track  and  fire  unit  (same  as 

DMIN  as  used  in  ASSIG  and  USERF) . 

(Real) 

SHBPT 

NHOOK 

Starting  symbol  for  a sequence  hook. 

SHPT 

NHOOK 

Symbol  pointer  for  sequence  hook. 

TMIN 

CLOTR 

The  time  until  the  minimum  distance 
achieved  by  the  given  track  and  fire 
unit  (MIND)  occurs. 

TRN 

MODRF 

Track  number  being  processed.  (Real) 

TRN 

USERF 

Operator's  track  number.  (Real) 

TRNF 

USERF 

Fire  unit's  track  number.  (Real) 

TRNK 

USERF 

System's  track  number  (also  TRNI) . (Rea! 

The  time  factor  used  in  task  1 (SEARCH) 


i 


yr- 

I' 


TVAL 


SETV 
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SECTION  IV 

DATA  INPUT  PROCEDURES 

[ 

; I This  section  describes  the  input  data  required  for  the 

I SAINT  model.  The  data  requirements  are  divided  into  two  cate- 

j gories:  SAINT  model  input  and  AN/TSQ-73  mission  input. 

I 

I 


SAINT  Model  Input 

The  SAINT  model  input  provides  the  SAINT  simulation  pro- 
gram with  a description  of  the  model  described  in  Section  II. 

A detailed  description  of  the  SAINT  model  input  requirements 
is  found  in  The  SAINT  User's  Manual  [5].  A complete  listing 
of  the  SAINT  model  input  appears  in  Figure  4. 


AN/TSQ-73  Mission  Input 

r The  AN/TSQ-73  mission  input  data  describes  the  specifics 

‘ of  the  mission  under  study.  This  data  defines  the  system  op- 


! 1 

I ; 


L 


1 


u 

Li 

U 

LI 


erating  modes,  the  characteristics  of  all  fire  units,  and  the 
flight  paths  and  identification  of  all  tracks.  A sample  listing 
of  mission  input  data  appears  in  Figure  5.  A summary  of  mission 
input  requirements  appears  in  Table  VII. 

The  following  is  an  explanation  of  the  mission  input  data 
shown  in  Figure  5.  The  data  was  used  to  generate  the  output 
discussed  in  Section  V.  The  first  three  lines  (cards)  are  used 
for  general  mission  information. 

Line  1:  T - Automatic  initiate  mode  (F  - manual) 

T - Automatic  interrogate  mode  (F  - manual) 

T - Automatic  engagement  mode  (F  - manual) 

T - Tight  engagement  policy  (F  - free) 

Line  2:  1 - Position  or  number  hooking  by  the  operator 

(0,2  - other;  see  Table  VII) 

] - N/A  (used  only  for  sequence  hooking) 


4 
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I 
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Line  3;  2 - Two  fire  units  are  specified  for  this  mission. 

10  - Ten  tracks  (both  hostile  and  friendly)  are 
specified  for  this  mission. 


The  next  two  lines  (4,5)  define  the  characteristics  of  the 


two  fire  units  used  in  the  mission.  In  general,  there  will  be 
one  line  for  each  fire  unit  specified  on  line  3. 


Line  4:  10  - The  x-coordinate  of  the  location  of  fire  unit 
one  is  10.0  miles  from  the  origin. 

(The  origin  should  be  selected  to  reflect 
the  "center"  of  the  system.) 

10.  - The  y-coordinate  of  the  location  of  fire 
unit  one  is  10.0  miles  from  the  origin. 

4.  - The  fire  unit  starts  the  simulation  with 
4 missiles. 


.99  - 99%  of  the  missiles  fired  result  in  an 
effective  engagement. 

Line  5:  The  location  (10., -10),  number  of  missiles  (4) 
and  the  site's  effectiveness  (99%)  is  given  for 
fire  unit  two. 


The  next  22  lines  define  the  flight  paths  for  all  tracks. 
Each  track  requires  at  least  two  lines  to  represent  a flight 
path.  A single  line  must  be  added  for  each  additional  leg  of 
the  track  ( lines  8,  9,  and  10  provide  an  example  of  a track 
with  two  legs) . Note  that  the  meaning  of  the  variables  in 

the  first  flight  path  line  for  each  track  is  different  from  the 

remaining.  If  the  data  contains  more  than  two  lines,  all  those 
lines  after  the  first  have  the  same  meaning. 

Line  6;  1 - Flight  path  for  track  1. 

50.  - Track  1 will  appear  at  time  50  seconds. 

80.  - The  x-coordinate  where  track  1 will  first 

appear  (at  time  50) . 

0 - The  y-coordinate  where  track  1 will  first 
appear. 
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Line  7:  1 - Flight  path  for  track  1. 

5000:  - The  time  of  the  next  turn  (5000  is  too  large 
to  occur,  therefore  there  is  no  turn) . 

-1.  - The  x-velocity  for  track  1 in  miles  per  second 
until  time  5000. 

-03.  - The  y-velocity  for  track  1 in  miles  per  second 
until  time  5000. 

Line  8:  Track  2 will  appear  at  time  50  at  location  (80. ,0.). 

Line  9:  Until  time  500.,  the  velocity  vector  for  track  2 
v/ill  be  x-velocity  = -.1  and  y-velocity  = -.03. 

Line  10;  Until  time  5000.  (beginning  at  the  500.  by  line  9) , 
the  velocity  vector  for  track  2 will  be  x-velocity  = 
-.075  and  y-velocity  = -.075. 

Line  11,  12:  Flight  path  information  for  track  3. 

Line  13  - 26:  Flight  path  information  for  tracks  4-10. 

Line  27;  99  - Stops  processing  of  flight  paths.  (Note 

this  must  only  be  a number  larger  than  the 
total  number  of  tracks  specified  on  line  3.) 

The  next  23  lines  define  the  track  identification  information. 
Each  track  requires  at  least  two  lines  and  both  have  the  same 
meaning.  This  information  reflects  the  highest  level  of  identi- 
fication for  the  system.  If  the  appropriate  automatic  mode  of 
operation  is  initialized,  these  updates  will  be  made  automatically. 
However,  if  a manual  mode  is  chosen,  the  data  will  be  stored  for 
future  use  by  the  operator.  The  tracks  defined  in  lines  6-27  will 
first  'appear'  as  video  data.  This  may  be  updated  at  any  time 
manually  to  a track,  but  will  not  be  initialized  automatically 
until  the  time  specified  in  the  input  data  (see  line  28) . 

Line  28:  1 - Identification  information  for  track  1. 

75.  - The  time  (75  seconds)  for  the  information 
update  given  on  this  line  for  track  1. 

2.  - The  status  may  now  be  given  as  an  unknown  track. 
(This  is  used  only  in  the  automatic  initiate 
track  mode. ) 
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Line  29;  1 - Identification  information  for  track  1. 

250.  - The  time  (250  seconds)  for  the  information 
update . 

4.  - The  status  of  the  track  may  now  (250  seconds) 
be  given  as  hostile. 

Line  30;  1 - Identification  information  for  track  1. 

5000.  - The  time  (never  reached)  for  the  information 
update . 

- - May  be  left  blank  since  it  is  not  used. 

Line  31  - 33;  The  identification  information  for  track  2. 

At  time  100  - unknown  track. 

At  time  200  - hostile  track  (for  the  duration) . 

Line  34  - 49;  The  identification  information  for  tracks 

3-10  (note  tracks  9 and  10  are  identified 
as  friendly) . 

Line  50;  99  - Stops  processing  of  track  identification 

information  (see  line  27) . 
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GEN>ARIi3. Itl978>lt2. 

SGE. 0.39. !.• 1000.* 

POP. 2.0. 3.11. 14* 

OUT.O. (5)0>0.0.0.0.0.0.0.M.Y.y.y« 
DIS.1.UN..0..1.* 

0I3.2.UN..1..5.* 

DIS.3.UN..1..10.* 

DIS.4. UN.. .5.1.5* 
DI5.S.UN..2..06.* 
DIS.6.UN..1..05.* 

DIS.7.Uli.  .2..04.* 
DIS.8.UN..2..05.* 

0IS.9.UN. .04..08.* 

DIG. 10. UN.. 10. .20.* 

DI5.il. UN.. 04. .09.* 
DI8.12.UN..10..20.* 

DI5. 13.UN.. 10..20.* 

DIS. 14.UN. .20..40.* 
DIS.15.UN..4S..65.* 

DIS.16.UN. .30..45.* 

UBO. 1.8EPRCHT. 

а.  IDLET. 

3. UIDE0T.  , 

4. UNKT. 

5. FRIENDT, 

G.HOSTILET. 

7. FIREUT. 

8. PSSIGNT. 

9. H00KINGT. 

10. TIMETRftK, 

11. TIMEFRND. 
la.TIMEHOST. 

13.K1LLT* 

UTI.l.OBEFF,. 

2. FU1.. 

3. FU2.. 

4. FU3.. 

5. FU4.. 

б. FU5.. 

7. FU6. . 

8. FU7.. 

9. FU8.. 

10. FU9.. 

11. FUIO* 

UHI . 1 . OPERPTOR. 12. 0 . . 1 . > 

2. FUOPERPT.12.0..1.. 

3. FUEFFECT.12.0..1.* 

IN0.6.P* 

TAS. 1. SEARCH. 0. l.SC.O. ( 10)90* 

NOD. 1 . 1 . A. . 

8.  A. . 

10.  A* 

ATA. 1 . CON. SA. 0 . 1 . UF . 43* 
CFI.1.2.ALU.0..1.SA.. 
3.ALU.1..1.SA.. 

9. ALU.2..1.SA.. 

21 . ALU. 3. . 1. SA. . 
24.ALU.9..1.SA* 

TAS. 2. IDLETINE. 1 . 1 . UF. 40* 

NOD.  2. 8.  A* . 

10.  A* 

STA.2, (5)BET.STA.10.0..30.* 
DET.2.1* 

TAS. 3. OBSUIDEO. 1 . 1 . DS. 4. ( 16 ) 1* 
NOD. 3*  8*  A. . 

10.  A* 

STA.3. (S)BET.STA. 10.0..30.* 
ATA.3.CON.SA.O. l.UF. 1* 

PRO. 3. SA. 0.1.1. 

4.2. 

5.3* 

Figure  4(1).  SAINT  Model  Input 
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TPlS>4.UflIT0NE.  l.l.DS.S. 

(1G)1* 
nODf 4.8.A* 

DET.4,3* 

TAS. 5.  AUTOMAMN, 1. li SC. 0. 
(16)1* 

ATA.S.COM.SA.O.l.UF.a* 

PRO.S.SA.O.l.l. 

6.2. 

T 9 3* 

TAS. 6. WATCHUID. 1 . 1 . UF . 3. 
(16)1* 

MOD. 6. 8. A* 

ATA.6.COn.SA.0.1.UF.41* 

CFI.6.1.AGU.1..1.SA.. 

7.ALU. 1..1.SA* 

TAS. 7. POSTAB. 1 . 1 . DS. 6. 

(16)1* 

MOD. 7. 8. A* 

DET.7.8* 

TAS.  8. PINDICAT. 1 . 1 . DS. 7. 
(16)1* 

MOD. 8. 8. A.. 

9.  A* 

ATA. 8. COM. SA. 0. 1 . UF. 4* 

DET.8. 1* 

TAS.S.0BSUMK.1.1.DS.4. 

(16)1* 

M0D.9.8.A.. 

10. A* 

STA.S. (5)BET.STA. 10.0..30.* 
UTC.S...40..60..1...2* 
ATA.S.COM.SA.O. 1.UF.5* 

PRO. 9. SA. 0. 1 . 1 . 

10.2* 

TAS. 10. PIDIFF. 1 . 1 . DS. 7. 

(16)1* 

MOD. 10. 8. A* 

ATA. 10. COM. SA. 0.4. SC. 1. 

SA.O.S.SC.O* 

DET. 10.35* 

TAS. 1 1 . PINTERRO. 1 . 1 . DS. 7. 
(16)1* 

MOO.  11. 8.  A* 

DET. 11. 12* 

TAS.  12.  READMSG. 1 . 1 . DS. 8. 
(16)1* 

MOO. 12. 8. A* 

UTC.  12. . . 50 • . 50 «. !«.•!* 

ATA.  12.COM.SA.0. 1.UF.6* 

PRO. 12. SA. 0. 1 . 1 . 

13.2. 

14,3* 

TAS. 13. PFH, 1.1. OS. 7. 

(16)1* 

MOO.  13. 8.  A.. 

9,  A* 

OET, 13. 1* 

TAS. 14.TIGHGREE. 1. l.SC.O. 
(16)1* 

ATA.  14, COM. SA. 0. 1. UF, 7* 

PRO. 14.SA.0.1.1. 

15,2* 

TAS. 15.PASSIGN.  1. 1,0S.7, 
(16)1* 

MOO. 15. 8. A.. 

10.  A* 

ATA,  15.  COM.  SA,  0.4.  SC.  2. 

SA. 0.5. SC. 0* 

CFI  .15. 35. ALU. 5. 7. SA. . 

18. ALU, 5.. 7, SA* 

Figure  4(2).  SAINT  Model  Input 
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TAS.IS.BR^^MCH.  1.1.SC>0> 

(16)1* 

ATA>18>COM>5A«0.1.UF.10> 

I8.0>SfUF.4S, 

SP*  0*  4t  SC*  3* 
SA.O.S.SC.l* 
PR0.18.SA.O,35. 1* 

19*2* 

1.3* 

TPS* 19.PEMGACC. 1. 1.DS.7. 

(16)1* 

MOO. 19. 8* P* 

PTP.  19.  COM.  IP.  0. 3.  SC. 2* 

CPL. 19.1. PLU. .5.7.  SP.. 

20.  PCU. .5*7. SP. . 
46.PGU.0..2. IP* 

TPS. 20. PHOLDF. 1 . 1 . DS. 7* 

MOD. 20. 8. P« 

PTP.20.COM. IP. 0.3. SC. 3* 
DET.20.1.48* 

TPS. 21 . OBSFREND. 1 . 1 . DS. 4. 
(16)1* 

MOD. 21. 8. P.. 

10. P* 

STP.21. (5)BET.STP. 10.0..30.* 
PTP. 21 . COM. SP. 0. 1 . UF. 11* 
PR0.21.SP.0.1.1. 

22.2* 

TPS.22.CKFU.1.1.DS.4. 

(16)1* 

MOO. 22. 8. P* 

PTP. 22.COM. SP. 0. 1 . UF, 12. 

SP.  0. 4.  SC.  7 . 
SP.0.5.SC.0* 
PR0,22.SP. 0.1.1. 

35.2* 

TPS.23,PCFIRE,1,1.DS,7, 

(16)1* 

MOO. 23. 8. P* 

PTP. 23. COM. IP. 0. 3. SC. 4* 

DET,23. 1.46* 

TPS. 24. SEPRCHB. 1 . 1 . SC. 0* 
CFI.24.25.PLU.4..1.SP.. 

28*  PLU. 5* . 1 . SP. * 
1.PLU.99..1.SP* 

TPS. 25. OBSHOST. 1 . 1 . DS. 9. 

(16)1* 

MOO.  25. 8,  P.. 

10.  P* 

STP.25. (5)BET.STP. 10, 0.  .30.* 
UTC. 25. . . 50 • . 50 ..  .8,0.* 
PTP.25.COM,SP.O. l.UF.  13. 

SP.  0.7.  SC.  *“1* 

PRO. 25, SP.  0.1.1. 

15.2. 

26*  3* 

TPS,  26.  PPSSIGM, 1 , 1 , DS. 7, 

(16)1* 

MOD,  26. 8. P* 

PTP, 26. COM. SP. 0.4, SC. 5. 

SP*  0*5*  SC*  0* 

DET.26,35* 

TPS.  27, CLEPRHF. 1 , 1 , DS, 7, 

(16)1* 

MOD, 27. 8. P* 

PTP,  27,  COM,  SP,  0. 1 , UF.  14, 

IP. 0,3. SC,  5* 

CPL, 27,1, PLU, 0.,1,SP,, 
26.PCU.0.,1.SP. . 
46.PLU.2..1.SP* 

Figure  4(3).  SAINT  Model  Input 
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TAS>28.0BFU« If ltDSt4« 
nOD.28.8fAf f 
lOf  A* 

STA.28.(5)BET>STAf lOi 


l^TAf  28.  con.  SA.  0. 

SA.O. 

SA.O.! 

PRO. 28. SA.  0.1.1. 

35.2. 
33 1 3* 

TAS.29.READ00AC. 
nOO. 29. 8. A* 
ATA.29.COn.SA.O. 

SA.O. 

lA.O. 

SA.O.' 

CFI.29.30.ALU.0. 
35. ALU. 1.. 
31.  ALU. 2.. 


10.0. .30.* 
UF. 15. 

SC.  6. 

SC.l* 


. 1 . DS. 9* 

.UF.18. 
.SC. 4. 
.SC. 4. 

. SC. 0* 

1 . SA. . 

. SA. . 
.SA* 


TAS. 

30. 

DROPSITE, 

1, 1,DS,7* 

noD. 

30. 

8,  A* 

AT  A. 

30. 

con. SA, 0, 

1,UF,17* 

DET. 

30. 

1* 

TAS. 

31. 

C2ASSIGn, 

l.l.UF, 18* 

MOD. 

31. 

8.  A* 

ATA. 

31. 

con, lA.o. 

3, SC, 4* 

DET. 

31. 

35.46* 

TAS. 

32. 

ClASSIGM, 

1,1,DS,7* 

noo. 

32. 

8,  A* 

ATA. 

32. 

con, SA.O. 

l.UF,13. 

lA.  0. 

3. SC. 4* 

DET. 

32. 

46.30* 

TAS. 

33, 

OBSDDG.l. 

1,DS,9* 

noo. 

33. 

3,  A* 

ATA. 

33, 

con, SA.O, 

1.UF.8, 

SA.O. 

4.  SC. 8. 

^A.O. 

5. SC. 1* 

PRO. 

33. 

SA, 0.35.1 

* 

1.2* 

TAS. 

34, 

PCLEMG, 1, 

1.DS.7* 

noD. 

34, 

8,  A* 

ATA. 

34. 

con. SA.O, 

1,UF,9, 

lA.  0. 

3, SC. 1* 

DET. 

34, 

46.33* 

TAS. 

35, 

TVPEHOOK, 

1.1. SC. 0* 

noD. 

35. 

8.  A. . 

10. A* 

ST  A. 

35. 

n* 

ATA. 

35, 

con. SA.O. 

1,UF,20* 

CFI. 

35. 

36. ALU, 0. 

. 1 . SA. . 

39.ALU. 1., 

l.SA., 

42. ALU. 2.. 

l.SA* 

TAS. 

3G. 

TYPESEQ. 1 

. 1 . DS. 7 . 

( 

16)2* 

ATA. 

36. 

con, SA.O. 

1,UF,21* 

CFI, 

36. 

37, ALU, 0. 

. 1 . SA . . 

38.ALU. 1.. 

l.SA* 

TAS, 

3?, 

EhTCATSO, 

l.l.OS.ll. 

16)2* 

ATA, 

37, 

con. SA.O. 

l.UF,22* 

DET, 

37, 

38* 

TAS, 

38. 

PSEQHOOK, 

1, 1.DS.7. 

16)2* 

ATA, 

38. 

con. SA.O. 

1,UF,23* 

CFI, 

38. 

38. ALU. 0. 

. 1 . SA. . 

1 » ^LU» 1 • t 

l.SA,. 

45. ALU. 2., 

l.SA* 

TAS, 

39. 

ENTMUn.l, 

l.OS.ll. 

16)2* 

DET, 

39. 

40* 

Figure  4('!).  SAINT  Model  Input 


TAS. 40. PNUMHOOK. 1 . 1 > DS. 7. 
(16)S» 

PR0.40,M0.0.41..1> 

45, .9* 

TftS, 41 , PDEHOOK, 1 , 1 , DS. 7, 

(15) 5« 

DET,41,39* 

TAS. 42, nOUETAB. 1 . 1. DS. 6, 

(16) 2* 

DET,42,43* 

TAS, 43,PSNH00K, 1, 1, DS. 7, 
(16)2* 

PRO. 43.no. 0,44. .1. 

45, .9* 

TAS, 44, PDEHOOK, 1 , 1 . DS, 7, 
(16)2* 

DET,44,42* 

TAS, 45, RETHOQK, 1, 1 . SC, 0* 

MOD. 45, 10, A* 

STA.45, (5)IMT,STA. 10,0., 15.* 
CFI,45.11.ALU,1..4.SA.. 

18.  ALU. 2., 4, SA.. 

19.  ALU. 3., 4. SA.. 

32.  ALU. 4., 4. SA,, 

70,  ALU.  20., 4, SA* 

TAS, 70, RHOOKB, 1 . 1 , SC, 0* 
CFI.70,27,ALU,5.,4,SA,. 

29. ALU, 6., 4. SA, . 

23,  ALU,  7. , 4,  SA, , 

34, ALU. 8., 4, SA* 
TAS.4e,FUR0UTER, 1. l.SC.O* 
MOD. 46. 11, A* 

CFI , 46, 53, ALU, l.,3, lA,, 

47 , ALU,  2. , 3,  lA, , 
54.ALU.3..3. lA,. 

57 ,  ALU, 4. , 3, lA, , 

59, ALU. 20., 3. lA* 

TAS, 59. FUROUTB, 1 , 1 , SC, 0* 

CFI,  59. 55,  ALU, 5. , 3.  lA, , 

58.  ALU, 6., 3. lA* 

TAS, 47, ATTACH, 1, l.DS, 12* 

ATA,  47,  COM,  SA, 0, 8, UF, 24* 

MOD. 47, 3, A* 

CFI.47.48.AGU.0.,8,SA,. 

83. AGU.-1.,8.SA* 

TAS, 48. EMCAGEA. 1 . 1 , DS. 13* 
ATA.  48.  COM.  SA.  0. 8.  UF,  25* 

CFI , 48, 49, AGU, 0 . , 8, SA, , 

84, AGU.-1..8.SA,. 

85,  AGU,  ~*2.  ,8,  SA, , 

83. AGU. -3., 8, SA* 

TAS,49,EnGAGEB. 1, l.DS. 1* 

MOD, 43, 4. A,, 

11,  A* 

ATA.  49. COM. SA, 0, 8. UF. 26* 

CFI . 49. 50. AGU, 0 . , 8, SA. . 

86. AGU,-1..8,SA,. 

83. AGU, -2., 8. SA* 

TAS.50.FIRE. l.l.DS, 14* 

MOD, 50. 2. A* 

DET,50,51* 

T AS , 5 1 , EU ALF I RE . 1 , 1 . SC , 0* 
MOD. 51. 12. A* 

ATA,  51 , COM,  SA,  0, 8,  UF,  27* 

CFI. 51. 53. AGU. 1., 8. SA., 
49.AGU.0.,8,SA,. 
74,AGU.-1.,8.SA* 
TAS,53.CKF0R2, 1, l.SC.O* 

MOD, 53, 12, A* 

ATA. S3, COM. SA. 0.8, UF. 28* 

CFI . 53.49, AGU. 0 . . 8. SA. . 


88,AGU,-1..8,SA* 

Fiquro  4(5).  SAINT  Model  Input 
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TAS. 

54, 

HOLDFIRE, 

l.l.SC.O* 

ATA, 

54, 

COM,SA,0, 

8.UF,29* 

TAS. 

55. 

CLEARHF, 1 

, 1 , SC, 0* 

ATA, 

55, 

COM,SA,0, 

8.UF.30* 

CFl, 

55, 

50, AGO. 0. 

, 8, SA, , 

87, AGO, -1 

• , 8,  SA* 

TAS. 

57, 

CEASEF, 1, 

l.SC.O* 

ATA. 

57, 

COM.SA,0, 

8.UF.31* 

CFI, 

57. 

53, ALU, 0. 

,8,  SA, , 

87, ALU, 1. 

.8.SA* 

TAS. 

58. 

IMRAMGE. 1 

, 1 , SC, 0* 

DET. 

58, 

49* 

TAS. 

61. 

UDAUTO.O, 

l.SC.O, (10)50* 

MOD. 

61. 

10, A* 

ATA. 

61, 

COM,  SA,  0, 

6,  UF, 32* 

CFI, 

61. 

62.AGU,0. 

.6.SA* 

TAS. 

62, 

RANGETIM, 

1,1, SC, 10* 

DET, 

62, 

63* 

TAS, 

63. 

AUTOUD, 1. 

l.SC.O* 

ATA, 

63. 

COM,SA,0, 

6,UF,33* 

CAL, 

63, 

63, ALU, 1. 

,6,  SA, , 

46, ALU, 1. 

,6,  SA, , 

64, ALU, 0. 

, 6,  SA, , 

61,AGU,1. 

,6, 5A, , 

75,AGU,0. 

, 10, SA* 

TAS, 

64. 

AUTOHF, 1, 

l.SC.O* 

ATA, 

64. 

COM, IA,0. 

3. SC, 3* 

DET. 

64. 

46* 

TAS, 

65, 

STTRACK,0 

.l.SC.O. (9)2. .SO« 

ATA, 

65. 

COM,SA,0. 

9,UF,34* 

CAL, 

65. 

65, ALU, 0. 

, 9, SA, , 

66, ALU, 1 . 

.9.SA* 

TAS. 

66, 

INITTRAK, 

l.l.SC.O, (9)3.* 

ATA, 

66. 

COM,SA,0, 

9,UF,35* 

MOD. 

66. 

5,  A* 

DET, 

66, 

67,68* 

TAS, 

67, 

ROUTUD,!, 

1,UF.38* 

ATA, 

67, 

COM,SA,0, 

9,UF.36* 

DET, 

67, 

67* 

TAS. 

68. 

STATUD, 1, 

1,UF.39* 

MOD. 

68. 

10, A* 

ATA, 

68, 

COM,SA,0, 

9,UF,37* 

CAL, 

68. 

68, ALU. 1. 

, 10 , SA, , 

75.AGU,0. 

.lO.SA* 

TAS, 

73, 

OUTPUT, 0, 

1, SC, 800, (10)50* 

DET, 

73, 

73* 

TAS, 

71, 

TIMER. 0, 1 

,SC,800, (lO)SO* 

DET, 

71, 

72* 

TAS, 

72, 

SINK, 1,1, 

(10)51* 

TAS, 

74, 

RECEFFEC, 

1, l.SC.O* 

MOD. 

74, 

13. A., 

14,  A* 

TAS, 

75, 

BRCEARA. 1 

.l.SC.O* 

ATA, 

75, 

COM.SA.O, 

11,UF,45* 

CFI, 

75, 

76. ALU, 2. 

,11, SA , , 

77, ALU, 3. 

.ll.SA,. 

78. ALU. 4. 

.ll.SA., 

79.  ALU. 5. 

, ll.SA* 

TAS, 

76, 

CLUNKA. 1, 

l.SC.O* 

RCL, 

76, 

1,9* 

TAS. 

77, 

CLFRNA, 1, 

l.SC.O* 

RCL, 

77, 

1,21* 

TAS. 

78, 

CLHOSA. 1. 

l.SC.O* 

RCL, 

78, 

1,25* 

TAS, 

79, 

6RCLEARB, 

1, l.SC.O* 

ATA, 

79, 

COM.SA.O. 

11,UF,46* 

CFI, 

79, 

80. ALU. 2. 

,11, SA , , 

81. ALU, 3. 

,11, SA, , 

82, ALU. 4. 

.ll.SA* 

TAS, 

80. 

CLUNKB. 1, 

l.SC.O* 

RCL, 

80, 

1.9, 2. 9* 

4 ( 

5) 

SAINT 

Model  Input 

I 

t 


Li 
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Li 


TTTT 


1 

1 

s 

10 

10. 

10. 

4. 

5 10. 

-10. 

4. 

1 50. 

80. 

0. 

1 5000. 

-.1 

-.03 

2 50. 

80. 

0. 

2 500. 

-.1 

.03 

10  2 5000. 

-.075 

-.075 

3 0. 

40. 

0. 

3 5000. 

-.1 

0. 

4 60. 

40. 

0. 

4 5000. 

-.1 

0. 

15  5 120. 

40. 

0. 

5 5000. 

-.1 

0. 

6 180. 

40. 

0. 

G 5000. 

-.1 

0. 

7 240. 

40. 

0. 

20  7 5000. 

-.  1 

0. 

8 300. 

40. 

0. 

8 5000. 

-.1 

0. 

9 360. 

0. 

0. 

9 5000. 

.075 

.075 

25  10  420. 

0. 

0. 

10  5000. 

.075 

-.075 

99 

1 75. 

2. 

1 250. 

4. 

30  1 5000. 

2 100. 

2. 

2 200. 

4. 

2 5000. 

3 10. 

4. 

35  3 5000. 

4 70. 

4. 

4 5000. 

5 130. 

4. 

5 5000. 

■♦O  6 190. 

4. 

6 5000. 

7 250. 

4. 

7 5000. 

3 310. 

4. 

45  8 5000. 

9 370. 

3. 

9 5000. 

10  430. 

3. 

10  5000. 

5 0 — 99 

.99 

.99 


^ Hi 


Figure  5.  Mission  Input  Data 
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Table  VII 


MISSION  INPUT 

DATA 

Card 

Columns 

Format 

Definition 

1 

1 

LI 

Auto/manual  initiate 

2 

Ll 

Auto/manual  interrogate 

3 

LI 

Auto/manual  engagement 

4 

Ll 

Tight/free  policy 

2 t 
»» 

1-5 

15 

Hooking  policy 

0 = sequence  hook 

1 = position/number  hook 

2 = tab  hook 

6-10 

15 

Form  of  sequence  hook 

0 = track  and  fire  unit 

1 = track 

2 = fire  unit 

3 = hostile  track  and  fire  unit 

4 = hostile  track 

3 

1-5 

15 

Number  of  fire  units  in  mission 

6-10 

15 

Number  of  tracks  in  mission 

Fl-FN 

1-10 

FIO.O 

Location  of  fire  unit  N 
(x  coordinate  in  miles) 

11-20 

FIO.O 

Location  of  fire  unit  N 
(y  coordinate  in  miles) 

21-30 

FIO.O 

Number  of  missiles  at  fire  unit  N 

31-40 

FIO.O 

Effectiveness  of  fire  unit  N 
(0  < E < 1) 

TRl/1 

1-2 

12 

Track  number  (1) 

3-12 

FIO.O 

Time  track  1 appears  on  screen 
(in  seconds) 

13-22 

FIO.O 

Initial  location  of  track  1 
(x  coordinate  in  miles) 

23-32 

FIO.O 

Initial  location  of  track  1 
(y  coordinate  in  miles) 

TRl/2- 

TRl/m 

1-2 

3-12 

12 

FIO.O 

Track  number  (1) 

Time  track  1 makes  its  (m-1) 
turn  (in  seconds) 

I 


Table  VIII  (cont.) 
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Card  Columns  Format  Definition 


13-22 

FIO.O 

X velocity  before  the  time  in  field 
(miles/second) 

23-32 

FIO.O 

Y velocity  before  the  time  in  field 
(miles/second) 

{TR2/l-TR2/m)  - 

(TRn/l-TRm/m) 

Same  as  track  1 

SI  1-2 

12  , 

Any  value  larger  than  the  nvimber 
of  tracks 

(used  to  signal  the  end  of  TR  cards) 

TSl/1  1-2 

12 

Track  number  (1) 

3-12 

FIO.O 

Time  of  first  ID  change  for  track  1 

13-22 

FIO.O 

New  ID  for  track  1 

(0  = track  disappeared) 

1 = video  data 

2 = unknown  track 

3 = friendly  track 

4 = hostile  track 

TSl/2-  2-3 

TSl/m 

12 

Track  number  (1) 

Time  for  m^^  ID  change  for  track  1 

3-12 

FIO.O 

13-22 

FIO.O 

New  ID  for  track  1 

(TS2/l-TS2/m)  - 

(TSn/l-TSn/m) 

Scime  as  track  1 

S2  1-2 

12 

Any  value  larger  than  the  total 
nvunber  of  tracks 

(used  to  signal  the  end  of  TS 
cards) 


0 

[] 

! 11 
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SECTION  V 

EXAMPLE  OF  SAINT  SIMULATION  OUTPUT 


This  section  presents  examples  of  output  generated  by 
the  SAINT  simulation  of  the  AN/TSQ-73  system.  There  are  three 
categories  of  output.  The  first,  presented  in  Figure  5,  is  an 
echo  check  of  the  SAINT  model  input.  The  second,  shown  in  Figure 
7,  is  an  echo  check  of  the  AN/TSQ-73  mission  input.  The  infor- 
mation contained  in  these  two  output  categories  was  discussed 
in  the  previous  sections.  The  third  category  of  output,  shown 
in  Figure  8,  is  mission-related  output  generated  by  the  simula- 
tion. Both  a detailed  mission  output  (trace)  and  a statis- 
tical summary  output  are  provided. 


Mission  Trace  Output 

The  mission  trace  provides  a step-by-step  account  of  the 


simulation  as  it  progresses.  A small  section  of  the  mission 


trace  is  shown  here  for  purposes  of  explanation: 


4. 

10 

OBH 

as 

TP-  3 

H 

D-  as 

PFU- 

a 

PRHR 

Q ^ 

C"* 

5ER 

1 

TP-  0 

D-  0 

,PF'J- 

oa  p 

• C 

• ”* 

OFU 

as 

FU-  1 

p-  4 

0-  u 

UP  H 

, -- 

OFU 

33 

fu-  : 

P-  4 

r - 'j 

UP 

c;  1 . 

. 

.;fu  * 

33 

Z'  ' - 1 

F ' 

: 0 

' i . 

C 

jnj 

j-t 

Fu-  1 

>. 

r - 4 

s-  0 

UP  h 

3.3, 

s ^ 

ur  J 

33 

FU-  a 

u 

F-  3 

S-  0 

UR  H 

•iv  . 

SEP 

1 

TP-  0 

D-  0 

HFU- 

0 

UU  H 

UF 

A£ 


X£ 

XL,' 

rj 


The  first  line  above  represents  the  simulation  at  time  1 minute  4.10 
seconds.  The  current  job  (task)  of  the  operator  is  OBH  (observing 
hostile  track) , task  25.  The  track  number  associated  with  this 
target  is  3;  it  is  classified  as  H (hostile)  and  the  distance  to 
the  assigned  fire  unit  two  is  25  miles.  The  letters,  RRHR,  indi- 
cate that  targets  one,  two  and  four  are  not  yet  assigned  as  tracks, 
whereas  target  three  is  classified  as  a hostile  track.  The  letters, 
UF,  at  the  far  right,  indicate  that  fire  unit  one  is  unassigned 
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(U)  and  fire  unit  two  is  in  the  process  of  firing  (F)  a missile 
(at  track  3)  . 

At  time  1 minute  21.33  seconds,  the  operator  is  OFU*  (hook- 
ing an  observed  fire  unit) . The  asterisk  (*)  is  used  to  indicate 
the  hooking  process.  This  is  task  number  33.  As  there  is  a delay 
in  the  output  at  this  time,  the  fire  unit  information  on  the  cur- 
rent line  does  not  correspond  to  the  fire  unit  being  hooked.  The 
operator  is  hooking  FU-2  (fire  unit  2)  in  order  to  release  the 
effective  status.  The  letters  at  the  far  right,  AE,  indicate  that 
fire  unit  one  is  attached  and  fire  unit  two  is  showing  an  effective 
status.  This  effective  status  is  also  reflected  by  the  condition 
of  track  three.  It  has  been  removed  as  a track,  indicating  its 
elimination.  The  remainder  of  the  line  gives  the  information  that 
FU-1  (fire  unit  one)  is  A (attached)  with  P-4  (primary  assignment 
to  track  4)  and  S-0  (no  second  assignment) . Track  one  is  U (un- 
known) , track  two  is  R (video)  and  track  four  is  H (hostile) . 

As  the  mission  proceeds  (see  Figure  8) , the  fire  units  elim- 
inate all  hostile  tracks,  but  in  doing  so  expend  all  their  missiles. 

This  is  represented  by  an  * (blinking  fire  unit)  followed  by  a Z 
(out  of  action) . At  this  point,  the  operator  drops  the  fire  unit 
from  the  scope.  These  events  occur  at  times  6 minutes  11.55  sec- 
onds, 6 minutes  19.21  seconds  and  6 minutes  50.85  seconds,  re- 
spectively. jf 

Statistical  Summary  Output 

The  mission  trace  output  is  followed  by  a series  of  statis- 
tical summaries  that  represent  a variety  of  system  performance  i 

I 

i . 

I 


measures.  At  the  present  time,  there  are  seven  SAINT-generated 
task  statistics  collected,  thirteen  user-generated  statistics 
based  on  observation,  three  user-generated  histograms,  and  eleven 
user -generated  statistics  for  time-persistent  variables.  These 
statistics  are  representative  of  the  types  that  can  be  collected, 
but  are  by  no  means  all  inclusive.  The  statistics  currently 
collected  are: 

1.  SAINT  task  statistics. 

a.  Task  2;  The  time  between  occurrences  when  the 
operator  enters  an  idle  period. 

b.  Task  3:  The  time  between  occurrences  when  the 
operator  processes  video  data. 

c.  Task  9:  The  time  between  occurrences  when  the 
operator  processes  unknown  tracks. 

d.  Task  21:  The  time  between  occurrences  when  the 
operator  processes  friendly  tracks. 

e.  Task  25:  The  time  between  occurrences  when  the 
operator  processes  hostile  tracks. 

f.  Task  28:  The  time  between  occurrences  when  the 
operator  processes  fire  unit  sites. 

g.  Task  45:  The  interval  of  time  that  has  occurred 
since  task  35.  It  represents  the  amount  of  time 
spent  in  the  hooking  procedures. 

2.  User-generated  statistics  for  variables  based  on 

observation. 

a.  SEARCHT:  The  amount  of  time  spent  scanning  the 
scope  in  the  search  task. 
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b.  IDLET:  The  time  spent  as  idle  tine. 

c.  VIDEOT:  The  time  spent  processing  video  data. 

d.  UNKT;  The  time  spent  processing  unknown  tracks. 

e.  PRIENDT:  The  time  spent  processing  friendly  tracks. 

f.  HOSTILET;  The  time  spent  processing  hostile  tracks. 

g.  FIREUT:  The  time  the  operator  is  working  with 
the  fire  units. 

h.  ASSIGNT:  The  time  the  operator  spent  assigning 
fire  units  to  tracks. 

i.  HOOKINGT:  The  time  soent  by  the  operator  in  the 
hooking  procedures. 

j.  TIMETRK;  The  time  the  system  or  operator  spent  in 
assigning  a track  to  video  data. 

k.  TIMEFRND:  The  time  the  system  or  operator  spent 
in  identifying  a track  as  friendly. 

l.  TIMEHOST:  The  time  the  system  or  operator  spent 
in  identifying  a track  as  hostile. 

m.  KILLT:  The  time  from  initial  appearance  to  effect- 
ive kill. 

3.  User-generated  histograms. 

a.  Histogram  1:  The  number  of  occurrences  that  have 
been  recorded  by  the  operator  in  each  of  the  nine 
possible  categories. 

The  categories  are: 

(i)  1 = Search 

(ii)  2 = Idle  Time 

(iii)  3 = Processing  Video 

(iv)  4 = Processing  Unknown  Track 


ll 
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(v)  5 = Processing  Friendly  Track 

(vi)  6 = Processing  Hostile  Track 

(vii)  7 * Observing  Fire  Unit 
(viii)  8 = Hooking  Procedures 

b.  Histogram  2:  The  number  of  missiles  fired  by  each 
unit.  Each  line  represents  a single  fire  unit, 
where  the  upper  cell  limit  is  the  fire  unit  number. 

c.  Histogram  3:  The  number  of  effective  kills  each 
fire  unit  has  had.  Each  line  represents  a single 
fire  unit,  where  the  upper  cell  limit  is  the  fire 
unit  number. 

User-generated  statistics  for  time-persistent  variables. 

a.  OBEFF:  The  effectiveness  of  the  system  and  operator, 
The  value  gives  the  percentage  of  time  that  the 
system  or  operator  was  not  up-to-date  in  its  iden- 
tification. Therefore,  the  smaller  the  value,  the 
more  efficient  the  system  or  operator  was. 

b.  FUl-FUlO:  The  percentage  of  time  that  the  fire 
units  were  active. 


SAINT  SIMULATION  PROJECT  1 BY  ARI 
DATE  3/  1/  1978 


•RUN  PARAMETERS* 

PARAMETER  UALUE 

NUMBER  OF  ITERATIONS  1 

NUMBER  OF  SINK  TASKS  TO  END  ITERATION  1 

INTEGER  RANDOM  NUMBER  SEED  71268B59 

SCALE  FACTOR  FOR  FUNCTION  SC  1.000 


•PROGRAM  OPTIONS* 

OPTION  CODE 

NUMBER  OF  RESOURCES  2 

NUMBER  OF  RESOURCE  ATTRIBUTES  PER  RESOURCE  0 

NUMBER  OF  INFORMATION  ATTRIBUTES  3 

NUMBER  OF  SYSTEM  ATTRIBUTES  11 

NUMBER  OF  MODERATOR  FUNCTIONS  14 

NETWORK  MODIFICATION 
DISTRIBUTION  SET  MODIFICATION 

RANKING  OF  TASKS  AWAITING  SCHEDULING  3 


•OUTPUT  OPTIONS* 

OPTION  CODE 

DETAILED  ITERATION  OUTPUT  (BEGIN)  0 

DETAILED  ITERATION  OUTPUT  (END)  0 

RESOURCE  UTILIZATION  SUMMARY  (BEGIN)  0 

RESOURCE  UTILIZATION  SUMMARY  (END)  0 

STATISTICS  TASK  SUMMARY  (BEGIN)  0 

STATISTICS  TASK  SUMMARY  (END)  0 

INITIAL-'FINAL  STATE  UARIABLE  UALUES  (BEGIN)  0 

INITIAL/FINAL  STATE  UARIABLE  UALUES  (END)  0 

STATE  UARIABLE  STATISTICS  (BEGIN)  0 

STATE  UARIABLE  STATISTICS  (END)  0 

STATE  UARIABLE  PL0TS/TABLE3  (BEGIN)  0 

STATE  UARIABLE  PLOTS^TABLES  (END)  0 

RESOURCE  UTILIZATION  SUMMARY  REPORT  NO 

STATISTICS  TASK  SUMMARY  REPORT  YES 

HISTOGRAM  OUTPUT  FOR  STATISTICS  TASKS 

SUMMARY  FOR  ITERATION  1 YES 

SUMMARY  REPORT  YES 


Figure  6(1) 


SAINT  Echo  Check 
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•USER-GENERATED  STATISTICS  FOR  UARIABLE5  BASED  ON  OBSERUATION* 


r T 

UARIABLE 

UARIABLE 

,.J 

NUMBER 

LABEL 

1 

SEARCHT 

2 

IDLET 

3 

UIDEOT 

4 

UNKT 

» * 

5 

FRIENDT 

6 

HOSTILET 

T t 

7 

FIREUT 

( 

8 

ASSIGNT 

. 

3 

HOOKINGT 

10 

TIMETRAK 

r •* 

11 

TIMEFRND 

12 

TIMEHOST 

i 

13 

KILLT 

I I 


J 

y 


Figure  6(2).  SAIIIT  Echo  Cheek 
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•USER-GENERATED  STATISTICS  FOR  TIME-PERSISTENT  UARIABLES* 


UARIABLE  UARIABLE 

NUMBER  LABEL 


INITIAL 

UALUE 


1 

2 

3 

4 

5 
G 

7 

8 
9 

10 

11 


OBEFF 

FUl 

FU2 

FU3 

FU4 

FU5 

FUG 

FU7 

FU8 

FU9 

FUlO 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


I 


IJ 

[| 

[i 

1.1 

n 

II 


Figure  6(3).  SAINT  Echo  Check 
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•USER-GENERATED  HISTOGRAMS* 


UARIABLE 

UARIABLE 

NUMBER 

UPPER  LIMIT 

NUMBER 

LABEL 

OF  CELLS 

OF  FIRST  CELI 

1 

OPERATOR 

IS 

0 

a 

FUOPERAT 

12 

0 

3 

FUEFFECT 

12 

0 

CELL  WIDTH 


l.OOOOE-^OO 

l.OOOOE-^00 

l.OOOOE+00 


t 


k 

t 


I 


,1  i 


1 

I 

1 :1 

Figure  6(4).  SAINT  Echo  Check 
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•IMITIAL  MODERATOR 

FUNCTIOM  STATUS* 

MODERATOR 

INITIAL 

* i 

FUMCTION 

STATUS 

1 

I MAC 

S 

I MAC 

i • 

3 

I MAC 

4 

I MAC 

5 

I MAC 

6 

ACT 

7 

I MAC 

t 4 

8 

INAC 

9 

I MAC 

10 

INAC 

11 

INAC 

. . 

IS 

INAC 

13 

INAC 

14 

INAC 

Figure  6(5).  SAINT  Echo  Check 
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SET  DISTRIBUTION 

NUMBER  TYPE 


1 

UN 

2 

UN 

3 

UN 

4 

UN 

5 

UN 

6 

UN 

7 

UN 

8 

UN 

9 

UN 

10 

UN 

11 

UN 

12 

UN 

13 

UN 

14 

UN 

15 

UN 

16 

UN 

•DISTRIBUTION  SETS* 

parameters 

12  3 4 


0 

0 

1.0000 

0 

0 

1.0000 

5.0000 

0 

0 

1.0000 

10.0000 

0 

0 

.5000 

1.5000 

0 

0 

2.0000 

6.0000 

0 

0 

1.0000 

5.0000 

0 

0 

2.0000 

4.0000 

0 

0 

2.0000 

5.0000 

0 

0 

4.0000 

8.0000 

0 

0 

10.0000 

20.0000 

0 

0 

4.0000 

9.0000 

0 

0 

10.0000 

20.0000 

0 

0 

10.0000 

20.0000 

0 

0 

20.0000 

40.0000 

0 

0 

45.0000 

65.0000 

0 

0 

30.0000 

45.0000 

0 

Figure  6(6).  SAINT  Echo  Check 
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•ItilTIAL  SYSTEM  ATTRIBUTE  UALUES* 


ATTRIBUTE 

NUMBER 


ATTRIBUTE 

UALUE 


i i 

'l  I 

) I 

I ! 


Figure  6(8).  SAINT  Echo  Check 
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Figure  6(9).  SAINT  Echo  Check 
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Figure  6(10).  SAINT  Echo  Check 
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•MARK  AMD  STATISTICS  TASKS* 


TASK 

MARK 

STATISTICS 

COLLECTION 

—HISTOGRAM— 

NUMBER 

POINT 

TYPE 

POINT 

NO.  CELLS 

UPPER  LIMIT 

CELL  WIDTH 

a 

BET 

STA 

10 

0 

30.00 

3 

BET 

STA 

10 

0 

30.00 

9 

BET 

STA 

10 

0 

30.00 

21 

BET 

STA 

10 

0 

30.00 

25 

BET 

STA 

10 

0 

30.00 

28 

BET 

STA 

10 

0 

30.00 

35 

45 

COM 

INT 

STA 

10 

0 

15.00 
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•USER  DEFINED  TASK  CHfiRflCTERISTICS* 


TASK 

CHARACTERISTIC 

CHARACTERISTIC 

NUMBER 

NUMBER 

UALUE 

S 

1 

0 

2 

0 

3 

40.00 

4 

GO.  00 

5 

1.00 

G 

.20 

IS 

1 

0 

2 

0 

3 

50.00 

4 

50.00 

5 

1.00 

G 

.10 

25 

1 

0 

2 

0 

3 

50.00 

4 

50.00 

5 

.80 

G 

0 

I 


4 


r 

I 


I 

I 


Li 

II 

iJ 

LI 


Figure  6(12).  SAINT  Echo  Chock 
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i; 

I 


1. 


I 


t 

i 

! 


li 

n 

Li 
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•ATTRIBUTE  ASSICI^IEMT  IMFORMATIOM* 


TASK 

ASSIGNMENT  ASSIGNMENT 

RESR  ATRIB 

FUNCTION 

NUMBER 

POINT 

TVPE 

NUMBER  NUMBER 

TVPE 

1 

COM 

SA 

1 

UF 

3 

COM 

SA 

1 

UF 

5 

COM 

SA 

1 

UF 

6 

COM 

SA 

1 

UF 

8 

COM 

SA 

1 

UF 

9 

COM 

SA 

1 

UF 

10 

COM 

SA 

4 

SC 

SA 

5 

SC 

12 

COM 

SA 

1 

UF 

14 

COM 

SA 

1 

UF 

15 

COM 

SA 

4 

SC 

SA 

5 

SC 

18 

COM 

SA 

1 

UF 

lA 

2 

UF 

SA 

4 

SC 

SA 

5 

SC 

19 

COM 

lA 

3 

SC 

20 

COM 

lA 

3 

SC 

21 

COM 

SA 

1 

UF 

22 

COM 

SA 

1 

UF 

SA 

4 

SC 

SA 

5 

SC 

23 

COM 

lA 

3 

SC 

25 

COM 

SA 

1 

UF 

SA 

7 

SC 

26 

COM 

SA 

4 

SC 

SA 

5 

SC 

27 

COM 

SA 

1 

UF 

lA 

3 

SC 

28 

COM 

SA 

1 

UF 

SA 

4 

SC 

SA 

5 

SC 

29 

COM 

SA 

1 

UF 

SA 

4 

SC 

lA 

3 

SC 

Figure 

6(15)  . 

SAINT  Echo 

Check 

PARAMETER 

SPEC 

43 

1 

2 

41 

4 

5 

1 

0 

6 

7 

2 

0 

10 

42 
3 
1 

2 

3 

11 

12 

7 

0 

4 

13 
-1 

5 
0 

14 

5 

15 

6 
1 

16 
4 


1 


Ul 
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•PROBABILISTIC  BRANCHIMG* 


f 

TASK 

SUCC 

PROB/ 

ATRB 

RESR 

1 

MUHBER 

TASK 

ATRIB 

TYPE 

NUMBER 

i ! 

3 

1 

1 

SA 

4 

a 

SA 

• ^ 

S 

3 

SA 

• 

5 

1 

1 

SA 

1 

6 

a 

SA 

. 

7 

3 

SA 

S 

1 

1 

SA 

10 

a 

SA 

IS 

1 

1 

SA 

13 

a 

SA 

14 

3 

SA 

* 

14 

1 

1 

SA 

IS 

a 

SA 

18 

3S 

1 

SA 

IS 

a 

SA 

1 

3 

SA 

SI 

1 

1 

SA 

■ 

aa 

a 

SA 

f 

as 

1 

1 

SA 

3S 

a 

SA 

as 

1 

1 

SA 

IS 

a 

SA 

as 

3 

SA 

as 

1 

1 

SA 

1 

3S 

a 

SA 

1 

1 

33 

3 

SA 

1 

33 

35 

1 

SA 

i 

1 

a 

SA 

) 

40 

41 

.1000 

45 

.3000 

43 

44 

.1000 

' % 

45 

.9000 

u 


SAINT  Echo  Check 
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•COMDITIOMAL  BRANCHING* 


ASK 

BRANCH 

SUCC 

CONDITION 

ATRB/- 

ATRB 

MBER 

TYPE 

TASK 

CODE 

UALUE 

TYPE 

1 

FIR 

2 

ALU 

0 

SA 

3 

ALU 

1.00 

SA 

9 

ALU 

2.00 

SA 

21 

ALU 

3.00 

SA 

24 

ALU 

9.00 

SA 

5 

FIR 

1 

ACU 

1.00 

SA 

7 

ALU 

1.00 

SA 

15 

FIR 

35 

ALU 

-.50 

SA 

18 

ALU 

5.00 

SA 

19 

ALL 

1 

ALU 

.50 

SA 

20 

AGU 

.50 

SA 

46 

AGU 

0 

lA 

24 

FIR 

25 

ALU 

4.00 

SA 

28 

ALU 

5.00 

SA 

1 

ALU 

99.00 

SA 

27 

ALL 

1 

ALU 

0 

SA 

26 

AGU 

0 

SA 

46 

ALU 

2.00 

SA 

29 

FIR 

30 

ALU 

0 

SA 

35 

ALU 

1.00 

SA 

31 

ALU 

2.00 

SA 

35 

FIR 

36 

ALU 

0 

SA 

39 

ALU 

1.00 

SA 

42 

ALU 

2.00 

SA 

36 

FIR 

37 

ALU 

0 

SA 

38 

ALU 

1.00 

SA 

38 

FIR 

38 

ALU 

0 

SA 

1 

ALU 

1.00 

SA 

45 

ALU 

2.00 

SA 

45 

FIR 

11 

ALU 

1.00 

SA 

18 

ALU 

2.00 

SA 

19 

ALU 

3.00 

SA 

32 

ALU 

4.00 

SA 

70 

ALU 

20.00 

SA 

46 

FIR 

53 

ALU 

1.00 

lA 

47 

ALU 

2.00 

lA 

54  ' 

ALU 

3.00 

lA 

57 

ALU 

4.00 

lA 

59 

ALU 

20.00 

lA 

47 

FIR 

48 

AGU 

0 

SA 

83 

AGU 

-1.00 

SA 

48 

FIR 

49 

AGU 

0 

SA 

Figure 

6(19)  . 

SAINT 

Echo 

COMPARED 

ATTRIBUTE 
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84 

AGU 

-1.00 

SA 

8 

85 

ACU 

-2.00 

SA 

8 

83 

AGO 

-3.00 

SA 

8 

49 

FIR 

50 

AGU 

0 

SA 

8 

86 

AGU 

-1.00 

SA 

8 

83 

AGU 

-2.00 

SA 

8 

51 

FIR 

S3 

AGU 

1.00 

SA 

8 

49 

AGU 

0 

SA 

8 

74 

AGU 

-1.00 

SA 

8 

53 

FIR 

49 

AGU 

0 

SA 

8 

88 

AGU 

-1.00 

SA 

8 

55 

FIR 

50 

AGU 

0 

SA 

8 

87 

AGU 

-1.00 

SA 

8 

57 

FIR 

53 

ALU 

0 

SA 

8 

87 

ALU 

1.00 

SA 

8 

53 

FIR 

55 

ALU 

5.00 

lA 

3 

58 

ALU 

6.00 

lA 

3 

61 

FIR 

68 

AGU 

0 

SA 

6 

63 

ALL 

63 

ALU 

1.00 

SA 

6 

46 

ALU 

1.00 

SA 

6 

64 

ALU 

0 

SA 

6 

61 

AGU 

1.00 

SA 

6 

75 

AGU 

0 

SA 

10 

65 

ALL 

65 

ALU 

0 

SA 

9 

66 

ALU 

1.00 

SA 

9 

68 

ALL 

68 

ALU 

1.00 

SA 

10 

75 

AGU 

0 

SA 

10 

70 

FIR 

27 

ALU 

5.00 

SA 

4 

29 

ALU 

6.00 

SA 

4 

23 

ALU 

7.00 

SA 

4 

34 

ALU 

8.00 

SA 

4 

75 

FIR 

76 

ALU 

2.00 

SA 

11 

77 

ALU 

3.00 

SA 

11 

78 

ALU 

4.00 

SA 

11 

79 

ALU 

5.00 

SA 

11 

79 

FIR 

80 

ALU 

2.00 

SA 

11 

81 

ALU 

3.00 

SA 

11 

82 

ALU 

4.00 

SA 

11 

I 0 


D 


Figure  6(20).  SAINT  Echo  Check 
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•STATE  UARIABLE  GENERAL  INFORMATION* 


NUMBER  OF  EGUATIOtiS  WRITTEN  IN  DD 
NUMBER  OF  EQUATIONS  WRITTEN  IN  SS 
INTEGRATION  ERROR  OPTION 
ABSOLUTE  INTEGRATION  ERROR  ALLOWED 
RELATIUE  INTEGRATION  ERROR  ALLOWED 
MINIMUM  STEP  SIZE 
MAXIMUM  STEP  SIZE 
COMMUNICATION  INTERUAL 


0 

39 

WARN 

l.OOOOE-05 

l.OOOOE-05 

l.OOOOE+00 

l.OOOOE+03 

l.OOOOE-i-SO 


Figure  6(22). 


SAINT  Echo  Check 


Figure  6(23).  SAINT  Echo  Check 


SAIMT  SIMULftTIOti 
* 0 F T H E 

AN>'TSQ-73 

GUIDED  MISSILE  AIR  DEFENSE  SYSTEM 

I 


OPERATIONAL  DATA 


INITIAL  OPERATIONAL  MODES/POLICIES 

AUTO/MANUAL  INITIATE  AUTO 

AUTO^MANUAL  INTERROGATE  AUTO 

AUTO/MANUAL  ENGAGEMENT  AUTO 

TIGHT/'FREE  ENGAGEMENT  TIGHT 

HOOKING  POLICY  POSITION 


ASSOCIATED  FIRE  UNIT  INFORMATION 


LOCATION  QUANTITY  EFFECT 
! j NO  X-CORD  Y-CORD  WEAPONS  RATIO 

1 10.00  10.00  4 .390 

S 10.00  -10.00  4 .990 

! i 


1 

..1 


V-S.-?' 
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TRACK  INFORMATION 


L 0 C A 

T I 0 N 

U E L 0 

CITY 

NO 

TIME 

ID 

X-CORD 

Y-CORD 

X-UEL 

Y-UEL 

SPEED 

HEADING 

(MILES 

/ SEC) 

(MILES  / HOUR) 

1 

50.00 

UIOEO 

80.00 

0 

-.100 

-.030 

375.851 

253 

75.00 

UNKNOUN 

77.50 

-.75 

-.100 

-.030 

375.851 

253 

250.00 

HOSTILE 

60.00 

-6.00 

-.100 

-.030 

375.851 

253 

a 

50.00 

UIOEO 

80.00 

0 

-.100 

.030 

375.851 

286 

100.00 

UNKNOUN 

75.00 

1.50 

-.100 

.030 

375.851 

286 

200.00 

HOSTILE 

65.00 

4.50 

-.100 

.030 

375.851 

286 

500.00 

HOSTILE 

35.00 

13.50 

-.075 

-.075 

381.838 

225 

3 

0 

UIDEO 

40.00 

0 

-.100 

0 

360.000 

270 

10.00 

HOSTILE 

39.00 

0 

-.100 

0 

360.000 

270 

4 

60.00 

UIDEO 

40.00 

0 

-.100 

0 

360.000 

270 

70.00 

HOSTILE 

39.00 

0 

-.100 

0 

360.000 

270 

5 

120.00 

UIDEO 

40.00 

0 

-.100 

0 

360.000 

270 

130.00 

HOSTILE 

39.00 

0 

-.100 

0 

360.000 

270 

6 

180.00 

UIDEO 

40.00 

0 

-.100 

0 

360.000 

270 

190.00 

HOSTILE 

39.00 

0 

-.100 

0 

360.000 

270 

7 

240.00 

UIDEO 

40.00 

0 

-.100 

0 

360.000 

270 

250.00 

HOSTILE 

39.00 

0 

-.100 

0 

360.000 

270 

8 

300.00 

UIDEO 

40.00 

0 

-.100 

0 

360.000 

270 

310.00 

HOSTILE 

39.00 

0 

-.100 

0 

360.000 

270 

9 

360.00 

UIOEO 

0 

0 

.075 

.075 

381.838 

45 

370.00 

FRIENDLY 

.75 

.75 

.075 

.075 

381.838 

45 

10 

420.00 

UIDEO 

0 

0 

.075 

-.075 

381.838 

135 

430.00 

FRIENDLY 

.75 

-.75 

.075 

-.075 

381.838 

135 

Figure  7 (2) . Mission  Echo  Check 
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MISSION  TRACE  INFORMATION 


FIELDS 


SYMBOL 


USE/'MEANINC 


I, a 


TIME  IM  MINUTES  AND  SECONDS 


3 


CURRENT  OPERATOR  JOB  AREA 


SER 

SEARCH  SCOPE 

IDL 

IDLE  TIME 

OBR 

OBSERUE/PROCESS 

UIDEO 

OBU 

OBSERUE/PROCESS 

UNKNOWN  TRACK 

OBF 

OBSERUE/PROCESS 

FRIENDLY  TRACK 

OBH 

OBSERUE/'PROCESS 

HOSTILE  TRACK 

ASS 

ASSIGN  FIRE  UNIT  TO  TRACK 

OFU 

OBSERUE/PROCESS 

FIRE  UNIT 

• 

HOOKING  A SITE  OR  TRACK 

4 


SAINT  TASK  NUMBER 


5 


TR  TRACK  NUMBER  ASSOCIATED  WITH  ACTION 

FU  FIRE  UNIT  NO  ASSOCIATED  WITH  ACTION 


6 


STATUS  OF  TRACK 
R UIDEO 

U UNKNOWN  TRACK 

F FRIENDLY  TRACK 

H HOSTILE  TRACK 

S SPECIAL  SYMBOL 


U 

A 

X 

F 

E 

I 

Z 

D 

C 


STATUS  OF  FIRE  UNIT 
UNUSED 
ACCESSED 
ENCAGED 
FIRING 
EFFECTIUE 
INEFFECTIUE 
NOT  OPERATIONAL 
DISENGAGE 
CEASE  FIRE 

BLINKING  (OUT  OF  ACTION) 


7 


TRACK  - DISTANCE 

FIRE  UNIT  - PRIMARY  ASSIGNMENT 


u 


8 


TRACK  - ATTACHED  FIRE  UNIT 
FIRE  UNIT  - SECONDARY  ASSIGNMENT 


3 (SEE  S)  ALL  TRACKS  STATUS 

10  (SEE  6)  ALL  FIRE  UNITS  STATUS 


Figure  8(1).  Mission  Output 


T^SK 

TIME  JOB  MO 


111111111 122323222223333 
1234567890 1234567890 1234567830 123 


1 

1234567830 


0 

0 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

UU 

0 

36.15 

IDL 

2 

TR-  0 

D-  0 

AFU- 

0 

H 

UX 

0 

39.54 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

H 

UX 

0 

51.11 

OFU 

28 

FU-  2 

F 

P-  3 

S-  0 

RRH 

UF 

0 

52.30 

OFU 

33 

FU-  2 

F 

P-  3 

S-  0 

RRH 

UF 

0 

56.30 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

RRH 

UF 

1 

4.10 

OBH 

25 

TR-  3 

H 

D-  25 

AFU- 

2 

RRHR 

UF 

1 

9.57 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

RR 

R 

UE 

1 

15.17 

OFU 

28 

FU-  1 

8 

P-  4 

S-  0 

UR 

H 

AE 

1 

15.68 

OFU 

33 

FU-  1 

A 

P-  4 

S-  0 

UR 

H 

AE 

1 

21.33 

OFU* 

33 

FU-  1 

A 

P-  4 

S-  0 

UR 

H 

AE 

1 

31.69 

OFU 

34 

FU-  1 

X 

P-  4 

S-  0 

UR 

H 

XE 

1 

33.85 

OFU 

33 

FU-  2 

U 

P-  3 

S-  0 

UR 

H 

XU 

1 

40.20 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

UU 

H 

FU 

1 

49.28 

OBH 

25 

TR-  4 

H 

D-  26 

AFU- 

1 

UU 

H 

FU 

1 

53.94 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

UU 

H 

FU 

2 

1.92 

OBU 

9 

TR-  2 

U 

D-  72 

AFU- 

0 

UU 

HR 

FU 

2 

2.49 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

UU 

HR 

FU 

2 

6.33 

OFU 

28 

FU-  2 

U 

P-  0 

S-  0 

UU 

HR 

FU 

2 

7.02 

OFU 

33 

FU-  2 

U 

P-  0 

S-  0 

UU 

HR 

FU 

2 

12.28 

OFU* 

33 

FU-  2 

A 

P-  5 

S-  0 

UU 

H 

EA 

2 

38.00 

OFU 

34 

FU-  2 

F 

P-  5 

S-  0 

UU 

H 

EF 

2 

41.90 

OFU 

33 

FU-  1 

U 

P-  4 

S-  0 

UU 

H 

UF 

2 

45.99 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

UU 

H 

UF 

2 

52.23 

OBU 

9 

TR-  1 

U 

D-  67 

AFU- 

0 

UU 

H 

UF 

2 

53.71 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

UU 

H 

UF 

3 

2.10 

OFU 

28 

FU-  1 

u 

P-  0 

S-  0 

UU 

R 

UE 

3 

3.49 

OFU 

33 

FU-  1 

u 

P-  0 

S-  0 

UU 

R 

UE 

3 

10.91 

OFU* 

33 

FU-  1 

A 

P-  6 

S-  0 

UU 

H 

AE 

3 

17.56 

OFU 

34 

FU-  1 

A 

P-  6 

S-  0 

UU 

H 

AE 

3 

20.23 

OFU 

33 

FU-  2 

U 

P-  5 

S-  0 

UH 

H 

AU 

3 

24.49 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

UH 

H 

AU 

3 

30.86 

OBH 

25 

TR-  2 

H 

D-  64 

AFU- 

0 

UH 

H 

XU 

3 

38.15 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

UH 

H 

XU 

3 

45.14 

OBU 

9 

TR-  1 

U 

D-  62 

AFU- 

0 

UH 

H 

FU 

3 

46.09 

OBU 

10 

TR-  1 

U 

D-  62 

AFU- 

0 

UH 

H 

FU 

3 

48.39 

OBU* 

10 

TR-  1 

U 

D-  62 

AFU- 

0 

UH 

H 

FU 

3 

59.03 

OBU 

11 

TR-  1 

U 

D-  61 

AFU- 

0 

UH 

H 

FU 

4 

2.48 

OBU 

12 

TR-  1 

U 

D-  61 

AFU- 

0 

UH 

HR 

FU 

4 

6.01 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

UH 

HR 

FU 

4 

8.59 

OBH 

25 

TR-  2 

H 

D-  60 

AFU- 

0 

UH 

HR 

FU 

4 

10.00 

OBH 

25 

TR-  2 

H 

D-  60 

AFU- 

1 

HH 

HH 

FA 

4 

15.33 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

HH 

HH 

FA 

4 

22.77 

IDL 

2 

TR-  0 

D-  0 

AFU- 

0 

HH 

H 

EX 

4 

25.86 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

HH 

H 

EX 

4 

33.11 

OBH 

25 

TR-  1 

H 

D-  47 

AFU- 

2 

HH 

H 

EX 

4 

40.01 

SER 

1 

TR-  0 

D-  0 

AFU- 

0 

HH 

H 

EF 

4 

47.08 

OFU 

28 

FU-  1 

E 

P-  6 

S--2 

HH 

H 

EF 

4 

48.28 

OFU 

33 

FU-  1 

E 

P-  6 

S— 2 

HH 

H 

EF 

4 

55.53 

OFU* 

33 

FU-  1 

E 

P-  6 

S--2 

HH 

H 

EF 

5 

7.92 

OFU 

34 

FU-  1 

E 

P-  6 

S— 2 

HH 

R 

EE 

5 

10.22 

OFU 

33 

FU-  1 

U 

P-  6 

S--2 

HH 

H 

UE 

5 

18.07 

OFU* 

33 

FU-  1 

U 

P-  2 

S-  0 

HH 

H 

UE 

5 

28.84 

OFU 

34 

FU-  1 

u 

P-  2 

S-  8 

HH 

H 

UE 

5 

32.35 

OFU 

33 

FU-  2 

u 

P-  7 

S— 1 

HH 

H 

UU 

5 

38.03 

SER 

1 

TR-  0 

D-  0 AFU-  0 

Figure  8(2). 

HH  H 

Mission  Output 

UF 

TASK 

1. 

T 

I M E 

JOB 

NO 

1234567890 

S 

42.44 

OBH 

25 

TR-  2 

H 

D- 

40 

AFU- 

1 

HH 

H 

5 

49.52 

SER 

1 

TR-  0 

D- 

0 

AFU- 

0 

HH 

H 

5 

55.48 

□FU 

28 

FU-  2 

F 

P- 

1 

S-  0 

HH 

H 

5 

56.45 

SER 

1 

TR-  0 

D- 

0 

AFU- 

0 

HH 

H 

6 

3.84 

IDL 

2 

TR-  0 

D- 

0 
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••HISTOGRAM  OF  THE  FIRST  ITERATION  UALUES  OF  THE  BET  STA  STATISTIC  FOR  TASK  25  (OBSHOST  )•* 
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••HISTOGRAM  OF  THE  FIRST  ITERATION  UALUES  OF  THE  INT  STA  STATISTIC  FOR  TASK  45  (RETHOOK  )** 
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Figure  8(13).  Mission  Output 
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Figure  8(14).  Mission  Output 
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Figure  8(18).  Mission  Output 


J 


+nnnnnnnnnnno+ ♦ ♦ 


Figure  8(19).  Mission  Output 
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